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Prefacio - Tim Hartnell 


Ahora tiene la oportunidad de aprender a programar en có- 
digo máquina en su ordenador Amstrad. No le importe lo que 
diga la gente, no es tan fácil com para aprenderlo sin 
cierta dificultad. 


Sin embargo, con una buena guía, aún el terreno más difí- 
cil se puede vadear. Creo que Clive y Scott - dos programa- 
dores muy competentes, con gran experiencia en libros y 
*softuware' a sus espaldas - son los guías ideales para ayu- 
darle a comprender las interioridades de la programación en 
código máquina del Amstrad. 


Debe ir trabajando a lo largo del libro, saltándose las 
secciones que le presenten una especial dificultad la prime- 
ra vez que las lea. Cuando haya terminado su primera  lectu- 
ra, tendrá los suficientes conocimientos como para poder 
comprender aquellas secciones que dejó sin completar la pri- 
mera vez que pasó por ellas. 


Si lo hace así, verá que es mucho más fácil la tarea, y 
sus progresos no se verán detenidos por una sección particu- 
lar que parezca más difícil que las otras. 


Y no olvide las rutinas de código máquina, listas para 
funcionar, de este libro (incluido un paquete completo para 
escribir programas de juegos) que puede usar junto con sus 
programas BASIC, aunque en este momento no comprenda cómo 
funcionan. 


Ahora ya es el momento de comenzar a aprender a dominar el 


código máquina en su Amstrad. 


Tim Hartnell, 
Londres, 1986 


Introducción de los Autores 


Esperamos que este libro le ayude a dominar la programa- 
ción en código máquina. Hemos intentado escribir una guía 
fácil de seguir, para dar una visión interna del trabajo del 
código máquina y de sus comandos más importantes, así como 
proporcionar un grupo de cuadros y tablas útiles. Estos ocu- 
pan casi la mitad del libro. El balance final es una genero- 
sa selección de rutinas en código máquina. Estas rutinas in- 
cluyen un cargador BASIC fácil de usar, que se puede teclear 
y poner en funcionamiento en pocos minutos. Y, aunque no 
pretenda aprender en este preciso momento las interioridades 
del código máquina, este libro le proporcionará una intere- 
sante librería de útiles y (en algunos casos) divertidas ru- 
tinas. 


Escribir este libro ha sido un trabajo duro pero diverti- 


do. Esperamos que que usted obtenga tanto beneficio leyéndo- 
lo como nosotros escribiéndolo. 


Scott Vincent 
Clive Gifford 


Londres, Marzo 1986 


CAPITULO UNO 
¿Qué es el Código Máquina? 


Lo primero que debemos saber es que el código máquina no 
es un código mágico que crea instantáneamente programas de 
la misma calidad que el 'softuare' comercial. Es lento y la- 
borioso de escribir, muy difícil de depurar y frecuentemente 
produce resultados que son muy poco mejores que una rutina 
similar en BASIC. No es un lenguaje maravilloso y creemos 
que se le da demasiada importancia a los términos ? progr ama 
100% en código máquina” y *programador de código máquina”. 


Para comprender como funciona el código máquina, necesita- 
mos echar primero una breve ojeada al trabajo interno de su 
ordenador. El procesador de su ordenador consta de miles de 
"puertas", o interruptores que pueden estar abiertos(off) o 
cerrados(on). Se pueden usar números binarios para represen- 
tar sus posiciones fáciimente, haciendo una correspondencia 
entre el uno=cerrado, y el cero=abierto. Sin embargo, intro- 
ducir cientos de unos y ceros para conseguir un comando que 
funcione no es un uso eficiente de nuestro tiempo, por esto 
se crearon los lenguajes de "alto nivel". El BASIC es uno de 
estos lenguajes. Reemplaza la masa de ceros y unos por algo 
fácil de entender, comandos similares a palabras inglesas. 
No es muy difícil de comprender lo que hacen comandos como 
PRINT, CLEAR y END (suponiendo que tenemos un ligero conoci- 
miento del idioma inglés, si no es así, no se preocupe, son 
pocas y de fácil comprensión cuando se han usado unas  cuan- 
tas veces). Se necesita un intérprete para traducir los co- 
mandos BASIC a dígitos binarios que pueda entender el  orde- 
nador, y esta interpretación es la que retarda enormemente 
la velocidad de operación. 


El código máquina es la serie de instrucciones a *nivel de 
máquina, en las que se convierte el BASIC. Estas instruc- 
ciones de bajo nivel pueden ser ejecutadas directamente por 
el procesador. 


El 'cerebro* de su ordenador, donde se desarrolla la mayor 
parte de la acción, es la "Unidad Central de Proceso o CPU. 
Cada diseño de CPU tiene su propia colección de instruccio- 
nes de máquina de bajo nivel, comocidas como Juego de  Ins- 
trucciones. 


La CPU de su Amstrad es uno de los diseños más populares 
que se han fabricado en microprocesadores, el chip CPU 280 
de Zilog. Por esto, este libro trata de la programación en 
código máquina 280 y de cómo usar el Juego de Instrucciones 
Z80. (Muchos otros ordenadores usan el chip 280, el Spectrum 
y los de la serie MSX son algunos de ellos. Pero en cada má- 
quina hay unas determinadas oóhdiciones que, aunque usen el 
mismo procesador Z80, las hace ligeramente diferentes desde 
el punto de vista de su programación en código máquina. Un 
buen ejemplo es la forma poco usual con que el Amstrad mane- 
ja la pantalla). 


El Juego de Instrucciones 


Cada instrucción de código máquina forma parte del lengua- 
je de bajo nivel. Pueden necesitarse media docena o más de 
instrucciones en código máquina para emular un comando  sim- 
ple de BASIC. 


Hay muchas maneras de representar el código máquina. Una 
de estas formas es el Lenguaje Ensamblador que utiliza un 
nombre descriptivo pequeño, conocido como nemotécnico, para 
cada instrucción. Otro método consiste en usar un número de- 
cimal. También se pueden usar números binarios y hexadecima- 
les (base 16, que son los que usaremos en los siguiente ca- 
pítulos). Por ejemplo, la instrucción que hace que el proce- 
sador regrese desde el código máquina al BASIC tiene el va- 
lor decimal 201, su valor en binario sería 11001001, en he- 
xadecimal tendría el valor C9 y en nemotécnico sería RET. 


Ahora que tenemos una breve idea de lo que es el código 


máquina, echemos una ojeada a las razones a favor y en con- 
tra de su uso. 


A Favor 

El código máquina, cuando está bien escrito, suele ser 
bastante más rápido que una rutina comparable en BASIC. 

El código máquina le permite realizar acciones que son im- 
posibles en BASIC, tales como síntesis de la palabra. Así 
mismo, el código máquina suele ocupar mucha menos memoria 
que un programa similar en BASIC. 


También conlleva un gran prestigio el ser capaz de progra- 
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mar en código máquina. Programas que funcionan perfectamente 
en BASIC suelen ser rechazados por los críticos porque no es- 
tán escritos en código máquina, aunque no produzca ninguna 
mejora el hacerlo. 


Argumentos en Contra 


El código máquina suele necesitar muchas instrucciones pa- 
ra emular una acción simple. 


El código máquina tiende a ser difícil de leer, comprender 
y depurar. Escribir programas en código máquina suele ser 
más difícil y ocupar más tiempo que escribirlos en un len- 
guaje de alto nivel como el BASIC. 


En código máquina es muy difícil realizar cualquier cosa 
más allá de la simple aritmética, y el código puede ser di- 
fícil de transferir de una máquina a otra. Es bastante difí- 
cil transferir un programa en código máquina desde una má- 
quina con procesador Z80 a otra también basada en el 280, 
pero intentar transferir una rutina 280 a, pongamos, un 
Commodore 64 (que usa la CPU 6502) es prácticamente imposi- 
ble. 


CAPITULO DOS 
Sistemas Numéricos y 
Lenguaje Ensamblador 


Los tres sistemas numéricos que suelen usarse más frecuen- 
temente en código máquina son decimal, binario y  hexadeci- 
mal. 


Como ya sabe, los números decimales se construyen en base 
diez, los binarios en base dos, y los hexadecimales en base 
diez y seis. 


Imagine que dentro de la CPU de su Amstrad hay una pila de 
pequeñas casillas, llamadas direcciones. Cada dirección pue- 
de contener ocho dígitos binarios (y un grupo de ocho dígi- 
tos binarios es conocido, por alguna oculta razón, como  oc- 
teto o byte). Obviamente, si los ocho dígitos son ceros, el 
número contenido en esa dirección será el cero. Sin embargo, 
si los ocho dígitos son unos (ej. 11111111), la dirección 
contendrá el número 235. Por lo tanto, una dirección puede 
contener un número entre cero y 255. 


El comando BIN$ del Amstrad convierte números decimales en 
sus equivalentes binarios: 


BIN$ (V, N) 


En esta sentencia, V es el valor en decimal que va a ser 
convertido y N es el número de dígitos mostrados. (El último 
parámetro no es necesario, en cuyo caso el Amstrad imprimirá 
el resultado sin ningún cero delante. PRINT BIN$(4) nos dará 
como respuesta 100, mientras que si especifica que quiere o- 
cho dígitos en el resultado, obtendremos 00000100). 


Hexadecimal (o "hex') es el nombre correcto del sistema de 
numeración basado en diez y seis. El rango de dígitos es 0, 
1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C,D, E y F. La notación 
hexadecimal se usa en código máquina debido a su estrecha 
relación con, y su facilidad para convertir en binario, el 


sistema de numeración natural de los ordenadores. Ahora, un 
dígito hexadecimal es igual a cuatro dígitos binarios(bits) 
o a medio octeto (un octeto contiene ocho bits). ¡Al medio 
octeto se le llama "nibble'"!. Por lo tanto, 0 en hex es i- 
gual a 0000 en binario, 2.en hex es 0010 en binario y F en 
hex es igual amd1111 en binario. PRINT HEX$ (201) producirá 
como respuesta C9. Este resultado se obtiene multiplicando 
el primer dígito hex por 16 (C=12) y sumándole el valor de- 
cimal del segundo dígito hex (9=9), o 192+9 que es igual a 
201. 


Si quiere incluir un número hex en su programa, debe ir 
precedido por "£'" o "£H". Un número binario debe ir precedi- 
do por "Ex". 


Números de Ocho y Diez y seis Bits 


Hasta este momento hemos tratado con números en el rango 


decimal de 0 a 255. Estos son, como dijimos anteriormente, 
números de 8 bits. Sin embargo, para obtener números mayores 
que 253 necesitamos números de 8 octetos (16 bits). Estos 


nos dan un rango bastante más alto, entre 0 y 653535. Si te- 
nemos un número de 16 bits que en hex se representa como 
0309, el 03 se conoce como el octeto más significativo o al- 
to, mientras que el otro octeto, C9, es el octeto bajo o me- 
nos significativo. El valor total de un número de 16 bits se 
calcula así: 


256 veces el octeto alto más el octeto bajo 


256 * 03 + C9 = 256 x 3 + 201 = 969 


Por lo tanto, hemos visto cómo se obtienen los números po- 
sitivos entre 0 y 65535, pero ¿qué pasa con los números ne- 
gativos?. Dentro de un octeto tenemos el bit más significa- 
tivo y el menos significativo. El bit más significativo es 
el de más a la izquierda, y el de más a la derecha es el me- 
nos significativo. El bit más significativo (cuyo valor pue- 
de ser 0 6 128) lo usamos como signo del número. Esto nos a- 
corta el tamaño máximo de un número de 8 bits, a 127. Sin 
embargo mantiene el rango de 236, ya que ahora podemos re- 
presentar cualquier valor entre -128 y +127. Si ponemos el 
bit de signo a cero, hacemos que el resto del octeto tome un 
valor positivo, mientras que si lo ponemos a uno, tendremos 
un valor negativo. Los números de 16 bits funcionan de forma 
similar, usando el bit de más a la izquierda del octeto más 
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significativo como bit de signo, que es como se le llama. 


Sin embargo, crear números binarios negativos no es tan 
simple como parece. Se debe seguir la regla de que la suma 
del correspondiente número positivo al valor negativo debe 
dar cero. Para conseguirlo, debemos usar un concepto numéri- 
co llamado Complemento a Dos. Este proceso se hace en dos 
partes. Primero, se debe invertir el valor de cada bit  den- 
tro del octeto, de forma que si un bit es igual asu, debe 
pasar a cero y viceversa. Este es el proceso real de comple- 
mentar. Una vez que se ha hecho esto, se añade 1 al resulta- 
do, obteniendo el valor binario de signo opuesto al valor 
del número. 


Podemos aclarar un poco más este concepto con el siguiente 
ejemplo: 


Para cambiar +7 a -7: 
+7 = 00000111 
El complemento del número es = 11111000 


Por lo tanto, 11111001 es el equivalente binario de -7 


(Este sistema funciona igualmente para convertir el signo 
menos en más. Habrá notado que usando este sistema se obtie- 
ne el bit de signo correctamente. Los números de 16 bits se 
calculan de la misma forma - el BASIC del Amstrad guarda las 
variables enteras como números de 16 bits en complemento a 
dos. Como con los números de 8 bits, el rango se mantiene i- 
gual, aunque el máximo número se reduce a la mitad, 327067). 


Lenguaje Ensamblador 


Esperamos que esté todavía con nosotros. Desgraciadamente 
no nos queda más remedio que seguir estos pasos antes de pa- 
sar a las cosas realmente interesantes. El lenguaje Ensam- 
blador ofrece una alternativa al uso de números decimales y 
hexadecimales para representar las rutinas e instrucciones 
de código máquina. Mientras que una ¡instrucción de código 
máquina se muestra como un número decimal o hex, en lenguaje 
ensamblador se muestra como un nemotécnico, un nombre  abre- 
viado. Una lista de números es bastante difícil de seguir, 
pero una lista de nemotécnicos como RET (abreviatura de 
RETURN, retorno),JP (abreviatura de JUMP, salto) y LD 


(abreviatura de LOAD, cargar) es más fácil de comprender. 


En las últimas páginas de este libro hay un apéndice que 
contiene todas las instrucciones de 280. Se han puesto en 
los dos formatos, nemotécnico y hexadecimal. Para poder in- 
troducir más fácilmente los programas de este libro, se han 
incluido también en dos formatos, en BASIC y en lenguaje en- 
samblador. El listado del BASIC es el que le resultará más 
fácil de usar en este momento, ya que se puede teclear  di- 
rectamente en el Amstrad y ejecutarlo sin más. El listado en 
lenguaje ensamblador, necesita un programa especial (llamado 
ensamblador o assembler) para convertir los nemotécnicos en 
código que pueda entender el Amstrad. 


Comprando un Ensamblador 


Existen multitud de ensambladores en el mercado. Aunque o- 
frecen gran variedad de facilidades, todos realizan la misma 
tarea esencial, convertir los listados en lenguaje ensambla- 
dor en el código apropiado. No se debe subestimar el valor e 
importancia de un ensamblador. Puede que encuentre  extrema- 
damente difícil escribir sus primeros programas en código 
máquina en decimal o en hex, o convertir a mano los nemotéc- 
nicos en hex sin un ensamblador. A medida que usted progrese 
en el mundo del código máquina, se convencerá de que es mu- 
cho más fácil escribir las rutinas largas en un ensamblador. 
Si escoge el correcto, también habrá escogido un grupo de 
facilidades sumamente útiles para ayudarle en la escritura, 
depuración y almacenamiento de sus rutinas en código máqui- 
na. 


De momento olvidemos lo dicho hasta ahora, no necesita un 
ensamblador para usar el material incluido en este libro. Si 
va a introducirse seriamente en el mundo del código máquina, 
piénselo, pues debe tomar en consideración la necesidad de 
comprar uno muy pronto. 


Si está decidido a aprender y usar el código máquina, de- 
berá comprar un ensamblador con todas las facilidades dispo- 
nibles, preferentemente uno que venga con un programa moni- 
tor (un programa que le permite moverse dentro de la memo- 
ria). Entre los mejores disponibles está The Code Machine 
por Picturesque Software que viene a costar en el Reino Uni- 
do unas 19.95£, que es una buena inversión. No vamos a en- 
tretenernos en discutir todas sus facilidades, baste saber 
que es el que se ha usado para escribir este libro. 
Picturesque está en 6, Corkscrewn Hill, West Wickham, Kent 
BR4 9BB, Reino Unido. 


Si prefiere algo más económico, puede echarle una ojeada 
al Curso de Lenguaje Ensamblador del Amstrad proporcionado 
por Glentop Publishers en Barnet, Herts. El ensamblador que 
incluye es bastante bueno, y además viene con un curso el có- 
digo máquina, todo por 12.95£. 


Si usted es un programador pobre, puede intentar conseguir 
el número 7 (Julio de 1985) de la revista *Computing With 
The Amstrad'*, que incluye un interesante listado de un ensam- 
blador. Los ejemplares atrasados se pueden obtener de 
Freepost, Europa House, 68 Chester Road, Hazel Grove, 
Stockport SK7 SNY, Reimo Unido. Cada número atrasado cuesta 
alrededor de 1.25£, y una cinta que contiene todos los pro- 
gramas de la revista cuesta unas 3.75£. 


En nuestro país podemos obtener un buen ensamblador como 
es el DEVPAC de HISOFT, que distribuye Indescomp, por unas 
6500A. Se puede encontrar también en disco para el CPC6128 
en los comercios especializados como Sinclair Store, Peek 
and Poke o en la sección de microinformática de los grandes 
almacenes. Este paquete incluye también un estupendo  desen- 
samblador que nos ayudará a analizar los programas de los 
que no dispongamos listado. 


Directrices 


En nuestro país podemos obtener uno de los mejores  ensam- 
bladores, DEVPAC de HISOFT, que distribuye Indescomp por 
unas 6500. Lo puede encontrar en los comercios especializa- 
dos como MICROTODO, en la calle Orense 3 de Madrid o en cual- 
quiera de las tiendas de Sinclair Store o de Peek and Poke o 
en la sección de microinformática de los grandes almacenes. 
Este paquete incluye también un estupendo desensamblador que 
nos ayudará a analizar los programas de los que no disponga- 
mos listado. 


ORG - define la dirección de la primera parte del 
código ensamblado. 


END - marca el final del programa. 
EQU - asigna un valor a un nombre de etiqueta. 
DEFL - le permite dar un valor a uma etiqueta, tantas 


veces como lo necesite. 


DEFB 


DEFW 


DEFS 


DEFM 


PRNT 


ENT 


asigna un valor a un octeto, en la dirección 
actual de ensamblaje. 


asigna un valor a los dos octetos siguientes a 
la dirección actual de ensamblaje (es la versión 
de doble octeto de DEFB). 

crea un número de octetos en blanco desde la 


dirección actual de ensamblaje. 


permite introducir mensajes en forma de cadena 
de caracteres. 


permite activar e desactivar la impresión 
mientras se ejecuta el ensamblaje del código. 
La sintaxis exacta de este comando varía 
dependiendo ensamblador. 


Define el punto de entrada del programa. 


No se preocupe si no entiende totalmente estas directri- 
ces. Cuando comience a usar el ensamblador o a estudiar los 
listados en lenguaje ensamblador, podrá volver a leer estas 
páginas y le resultará más sencillo de aprender el signifi- 
cado de cada una. 
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CAPITULO TRES 
Usando el Código Máquina 
en el Amstrad 


En este capítulo veremos el *hardWware* del Amstrad, cómo 
preparar la máquina para un programa en código máquina y có- 
mo salvar y cargar el programa. 


El Hardware 


Echemos una breve ojeada a las diversas partes que  compo- 
nen el ordenador Amstrad. Estas partes se pueden dividir en 
entrada, salida y proceso. La entrada, obviamente, incluye 
el teclado, pero también se puede referir a uná palanca de 
juego o a un *ratón?. 


La salida incluye el monitor y cualquier interfaz que per- 
mita mandar datos a una impresora o a cualquier otro dispo- 
sitivo externo. 2 


Las partes del Amstrad que se encargan del proceso interno 
son la más importantes desde el punto de vista del código 
máquina. Como ya mencionamos en el primer capítulo, el 
Amstrad está basado en la CPU 280. La CPU es el unidad *pen- 
sante* del ordenador, que se encarga de coordinar el trabajo 

.de las demás partes. La memoria es, por supuesto, la más im- 
portante de ellas. 


La memoria es de dos tipos básicos, ROM y RAM. ROM es la 
abreviatura de *Read Only Memory” (Memoria de Solo Lectura) 
y no puede ser alterada por medio del código máquina. Esta 
invulnerabilidad es necesaria para mantener información  im- 
portante - el sistema operativo y el intérprete BASIC. Pode- 
mos investigar los valores almacenados en la ROM, que pueden 
ser muy útiles como veremos más adelante. 


RAM es la abreviatura de *Random Access Memor y ? (Memoria 


de Acceso Aleatorio) y es el tipo de memoria que se usa para 
almacenar los programas. No solo se puede leer, también se 
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puede alterar. 


La memoria del Amstrad consta de 65536 posiciones de RAM y 
32768 de ROM. Puede que le sean más familiares los términos 
32K y 64K (donde 1K son 1024 octetos). Cada posición de me- 
moria es capaz de almacenar un número de 8 bits que, como 
vimos en el capítulo anterior, puede representar un número 
decimal dentro del rango 0 a 255. También hemos visto que a 
esta posición de memoria de 8 bits se le llama octeto. 


Una vez aprendido esto, vayamos a ver las otras partes del 
Amstrad. 


El Sonido 


El chip PSG es el Generador de Sonido Programable del 
Amstrad. Es un AY-3-8912, el mismo que se puede encontrar en 
otros ordenadores. El PPI es el Interfaz Periférico Progra- 
mable y es la unión entre la CPU y el PSG, la puerta de  im- 
presora, la pantalla y el casette y/o la unidad de disco. El 
CRTC también tiene que ver con la pantalla (su nombre comple- 
to es Controlador de Tubo de Rayos Catódicos). 


La última pieza que vamos a ver del hardware del Amstrad 
es el 'Gate Array” (se puede traducir por 'Matriz de puer- 
tas*). Es un dispositivo propio del Amstrad, que ayuda a so- 
lapar la ROM y la RAM así como a la generación de la ¡imagen 
de la pantalla. El solapamiento de la ROM y la RAM se trata- 
rá, junto con el mapa de memoria, un poco más adelante. 


Escribiendo Programas en Código Máquina 


Saliendo ya del hardware del Amstrad, vamos a ver los pro- 
cedimientos involucrados en la escritura de código máquina. 


Primeramente, debemos reservar un área de memoria para co- 
locar el programa en código máquina. Aunque su Amstrad tiene 
64K (o más, si tiene una máquina 6128), no toda:la memoria 
está disponible para sus programas. Si teclea PRINT FRE(O0), 
verá que tiene a su disposición unos 42K de memoria. Sin em- 
bargo, solo va a necesitar una fracción para la mayoría de 
los programas en código máquina. 


Esta memoria disponible para el usuario tiene una frontera 
sobre la que está situado el código que controla el ordena- 
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dor. Este límite superior se llama HIMEM y es una variable 

que puede imprimirse y alterarse. Si enciende su Amstrad e 

introduce PRINT HIMEM, obtendrá un resultado de unos 43K, de- 
pendiendo del modelo de Amstrad que posea. El valor de HIMEM 

se puede alterar poniendo en su lugar un valor inferior al 

original, por medio del comando MEMORY. MEMORY 40000 baja 

HIMEM a la dirección 40000 dejando libre una parte de la RAM 

para que la use con su código máquina o rutina. En el resto 

del libro hacemos esto para dejar espacio a nuestros progra- 

mas. El área que hay sobre HIMEM no se ve afectada por el co- 
mando NEW. 


SYMBOL AFTER 


Hay otro punto a tener en cuenta en la reserva de memoria. 
El comando SYMBOL AFTER reserva memoria para los gráficos 
definidos por el usuario (UDG). Esta memoria se reserva  in- 
mediatamente debajo de HIMEM y permanece aunque se altere el 
HIMEM. Si, por ejemplo, HIMEM estaba al principio en 40000 y 
la alteramos a 36000, la memoria para los UDGs estarán por 
encima de HIMEM y no le será posible acceder a ellos al or- 
denador. Esto nos puede causar algunos problemas. 


Si mira a una de las muchas rutinas de la segunda parte 
del libro, verá que la primera línea del programa suele ser: 


10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 


Esta línea libera toda la memoria reservada para los UDGs, 
altera HIMEM bajándolo a 39999 (lo que significa que la pri- 
mera dirección disponible para la rutina de código máquina 
es 40000, uno por encima) y después reserva memoria para 16 
UDGs, empezando desde la nueva posición de HIMEM hacia aba- 
jo. (Para una explicación más detallada de SYMBOL AFTER y de 
los gráficos definidos por el usuario, diríjase al manual 
del Amstrad). 


Una vez que ha introducido su programa en código máquina 
en la memoria, sálvelo antes de ejecutarlo. No de RUN al pro- 
grama sin haber salvado una copia del mismo a la cinta o al 
disco. A diferencia de los programas en BASIC, con sus mensa- 
jes de error, si el programa en código máquina no funciona 
adecuadamente, lo más probable es que le falle el ordenador 
obligándole a apagarlo y volverlo a encender de nuevo y per- 
diendo un trabajo que le puede haber llevado largo tiempo. 
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Salvando el Programa 


Para salvar um programa en código máquina, no tenemos más 
que añadir algunos parámetros e»tras al comando SAVE normal. 
El nuevo formato es: 


SAVE ''NOMBREPRG",B,)dir. principio, longitud,punto entr. 


La dirección de comienzo es la dirección de memoria desde 
la que se salvará el programa, mientras que el punto de en- 
trada es la dirección desde la que se ejecuta el programa. 


La longitud del programa es el número de octetos que ocupa 
la rutina. Se puede calcular con la siguiente fórmula: Direc- 
ción final de la Rutina - Dirección de comienzo de la Rutina 
+1. 


Carga del Programa 


La carga de un programa en código máquina es muy simple. 
Solamente debe teclear LOAD  '"'NOMBREPGM" o incluso LOAD "". 
Se puede reubicar el programa especificando una nueva direc- 
ción de comienzo, ej. LOAD "PANTALLA",30000. Sin embargo, de- 
be tener en cuenta que los programas pueden contener instruc- 
ciones que sean dependientes de la dirección original de 
comienzo (esto se ve más claro en los siguientes capítulos, 
particularmente en el que se trata las instrucciones de sal- 
to (JP)). 
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CAPITULO CUATRO 
Su Primer Programa 
en Código Máquina 


Ahora ya tiene una idea acerca de la preparación para la 
rutina en código máquina. Así mismo, conoce lo que es el len- 
guaje ensamblador. Ya ha llegado el momento de usar estos co- 
nocimientos en su primer programa en código máquina. 


Hace poco, leí en una revista dedicada al Amstrad una car- 
ta de un lector desesperado porque no podía hacer funcionar 
su código máquina. Tecleaba los números hexadecimales, como 
C9, y nemotécnicos, como RET y LD, directamente en la máqui- 
na. Por supuesto, todo lo que consiguió fueron montones de 
mensajes de 'syntax error?”. 


Nosotros ya sabemos que este método no es el correcto ya 
que (a) para usar nemotécnicos necesitamos un ensamblador y 
(b) el código debe ser introducido en la memoria del Amstrad 
mediante POKEs. 


Un Cargador Hex 


Para realizar este trabajo necesita un pequeño programa co- 
nocido como cargador. Las rutinas se suelen presentar con un 
cargador incorporado, como todas las rutinas de la segunda 
mitad de este libro. Para las rutinas muy cortas, como las 
que vamos a tratar en algunos de los siguientes capítulos, 
es mejor usar un programa cargador especial. Este que presen- 
tamos aquí es un cargador muy simple (hemos visto algunos 
que añaden muchas divertidas facilidades que aumentan el nú- 
mero de páginas del programa, para realizar la misma función 
que un programa de diez líneas). 


Teclee el siguiente programa y sálvelo a disco o a cinta. 


Lo va a necesitar unas Cuantas veces antes de terminar con 
el libro. 
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1 CARGADOR HEXADECIMAL 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 

20 n=40000 

30 INPUT a$ 

40 IF LEN(a$) /2<> INT(LEN(a$)/Z2 THEN PRINT "*ERROR* vuelva 
a introducir la última línea": GOTO 30 

50 b$=LEFTS (a$, 2) 

60 POKE n,VAL ("'82''+b$) 

70 n=n+1 

80 a$=RIGHTS (a$, LEN (a$) -2) 

90 IF a$="'" GOTO 30 ELSE 50 


Veamos lo que hace realmente el cargador hexadecimal. La 
línea 10 prepara la reserva de memoria (como se explicó en 
un capítulo anterior). La línea 30 acepta una cadena de dí- 
gitos hex y comprueba que se le ha dado un número caracteres 
par, ej. si la cadena tiene nueve caracteres, entonces la ca- 
dena debe tener un error en la entrada de datos. 


La línea S0 toma los dos primeros caracteres de la cadena 
y hace un POKE de ellos en la memoria del Amstard, comenzan- 
do en la dirección 40000. La línea 80 elimina esos dos carac- 
teres de la cadena y, si quedan más dígitos vuelve a la línea 
50 donde se repite el proceso completo. Si no hay más  dígi- 
tos, el programa vuelve y pide otros datos. Cuando haya ter- 
minado la entrada de datos, pulse ESC dos veces para cortar 
la ejecución del programa. 


El Programa 


Ahora veamos nuestro magnífico y potente programa en códi- 
go máquina. Se lo ofrecemos en forma de nemotécnico y en he- 
xadecimal ...¿está preparado?... 


RET c9 


No hay mucho que ver ¿verdad?. Estas instrucciones ya las 
hemos visto anteriormente. Es el comando RETURN que devuelve 
control desde una subrutina y, si no hay subrutinas, vuelve 
al BASIC. Por lo tanto está admirablemente indicado para 
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nuestros propósitos. Si funciona conseguiremos volver al 
BASIC sin problemas, y si mo funciona no habremos perdido 
mas que un minuto tecleándolo. Asegúrese de salvar el Carga- 
dor Hexadecimal a cinta antes de ejecutarlo. 


Ejecute el cargador hexadecimal, introduzca el par de  dí- 
gitos hex y vuelva al BASIC. La rutina ya está introducida 
en la memoria de su Amstrad. Para arrancarla necesita usar 
el comando BASIC CALL. Este comando debe ir seguido por la 
dirección de memoria en la que comienza la rutina. En este 
caso, como la mayoría de las rutinas de este libro, comien- 
zan en la dirección 40000. CALL 40000 ejecutará el programa 
y volverá al BASIC sin ningún problema. Si tiene problemas, 
apague su máquina , enciéndala de nuevo, cargue el cargador 
hexadecimal y compruebe el listado del programa con mucho 
cuidado. Después, ejecútelo y asegúrese de que introduce C9, 
el valor hex de RET. 


CALL es un comando muy potente en el Amstrad. Lo comproba- 
rá cuando lea un poco más adelante el capítulo que trata de 
cómo pasar parámetros a, y desde los programas en código má- 
quina. 


Variables 


Los programas en BASIC no pueden sobrevivir sin el uso de 
variables. El código máquina tiene sus propias variables, co- 
nocidas como registros. Los registros están muy limitados si 
los comparamos con la libertad con que se usan las variables 
en BASIC. 


Hay unos cuantos registros especializados, pero por el mo- 
mento solo consideraremos los de propósito general. Hay seis 
de ellos: B, C, D, E, H y L. Cada registro es similar a una 
posición de memoria. Solo pueden contener un número entre ce- 
ro y 255. Para aumentar esta capacidad, se emparejan los re- 
gistros, obteniendo BC, DE y HL. Así son capaces de contener 
números de 16 bits en el rango entre cero y 65535. 


Debemos usar estos registros en las diversas instrucciones 
de código máquina. La más común de ellas es LD, que es la a- 
breviatura de LOAD, Es el equivalente al LET del BASIC. Por 
lo tanto, LET B=10 o B=10 tiene su equivalente en código má- 
quina con LD B,10 (carga B con 10). Esta forma de cargar se 
conoce como Direccionamiento Inmediato. 


Es bastante difícil escribir una rutina en código máquina 
que no use la instrucción LD. Aparece en varias formas. Como 
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ya hemos visto, se puede cargar un registro con un valor nu- 
mérico constante. También se puede hacer LD a un registro con 
el valor de otro registro, como en LD B,C. Recuerde que siem- 
pre se carga el registro que aparece en primer lugar con el 
contenido del segundo. 
Acumu lador 

Antes de seguir con las versiones disponibles de la ins- 
trucción LD, debemos conocer al más especializado de los re- 
gistros. Al registro *A” se le conoce como registro acumula- 
dor. Veremos sus facilidades en el capítulo seis, cuando tra- 
temos la aritmética simple. 


Hay un número de LDs específicos al registro A. Es el úni- 
co registro de 8 bits capaz de cargarse directamente desde 
una posición de memoria. Se puede usar de la misma forma que 
los otros registros generales, en la forma LD A,C o LD A,190. 


Veamos estos LDs especiales. LD A, (nn) carga A con el con- 
tenido de la dirección nn de memoria. Los paréntesis signi- 
fican con el contenido de. Es posible hacer el proceso a 
la inversa y cargar una posición específica de memoria con 
el valor del registro A. LD (nn),A lo hace, nn sigue siendo 
una posición de memoria. 


Para demostrar todo lo expuesto, veamos una rutina de ejem- 
plo. Siga para esta rutina el mismo procedimiento que para 
la anterior, usando el cargador hexadecimal. 


Ensamblador Hexadecimal 
LD A, (41000) 3A 28 AQ 
LD (41001),A 32 29 A0Q 
RET Cc9 


Haga una CALL 40000 para que la rutina cargue en 41001 el 
valor que hay en 41000, pero ejecutando una simple rutina en 
código máquina. Para comprobar que ha funcionado, teclee: 


PRINT PEEK(41000);" ";PEEK(41001) 


++. y los números deben ser iguales. 


Observe lo fácil que habría sido caer en una trampa en 
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este punto. Muchas rutinas de este libro comienzan en la di- 
rección 40000. Habría sido muy fácil usar 40000 en esta, en 
vez de 41000. Sin embargo, si lo hubiéramos hecho, habr [amos 
colocado un muevo valor dentro de la rutina, con 40001 con- 
teniendo la misma instrucción que la dirección 40000, LD A. 


Esto debe ser evitado en cualquier rutina en código máqui- 
na. En esta no es muy importante el fallo, pero no es muy a- 
consejable permitir que una rutina se modifiquue a sí misma 
cuando es importante o compleja.. 


Veamos otro par de registros y su uso con la instrucción 
LD. IX e IY se llaman registros índice. Son de 16 bits y se 
usan especialmente para pasar parámetros desde el BASIC. al 
código máquina y viceversa, como se verá en el próximo capí- 
tulo. LD IX, (dir) carga el registro IX con el contenido de 
la dirección. 


F es el registro de señalizadores, llamado algunas veces 
registro de estado. De vez en cuando cohabita con el regis- 
tro A de forma que nadie se da cuenta de ello. 


Cada uno de los bits de F tiene su propósito específico. 


Son: 
Bit 7: Señalizador de signo, o S. 
Bit 6: Señalizador de cero, o Z. 
Bit 5: No se usa. 
Bit 4: Señalizador de medio acarreo, o H. 
Bit 3: No se usa. 
Bit 2: Señalizador de paridad/rebasamiento, o PV, o P. 
Bit 1: El señalizador de sustracción o de negación. 
Bit 0: Señalizador de acarreo, o C. (No confundirlo con 


el registro C). 


El señalizador de medio-acarreo lo ponen las instrucciones 
aritméticas si hay un acarreo desde el bit tres al bit cua- 
tro o, en el caso de pares de registros, desde el bit once 
al bit doce. 


El señalizador de sustracción es puesto por cualquier ins- 


trucción que implique una sustracción, y restaurado por cual- 
quier instrucción que implique una suma. 
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No hay instrucciones que alteren directamente el valor de 
F. Sim embargo, a F se le puede introducir un valor xx, usan- 
do LD C),xx/PUSH BC/POP AF. De forma similar, se puede leer 
el estado de los señalizadores H y N usando PUSH AF/POP BC y 
examinando después los bits en el registro C. 


No se preocupe si esto le parece incomprensible de momen- 
to. Ya lo verá claro durante el curso (se lo prometemos), y 
entonces podrá volver a releer esta sección comprendiéndola 
completamente. 
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CAPITULO CINCO 
Pasando Parámetros 


Ya sabemos que el comando CALL del BASIC se usa para acce- 
der a uma rutina en código máquina. CALL puede ir acompañado 
por algo más que la dirección de la rutina a la que se lla- 
ma. Esta sección trata del uso del comando CALL para pasar 
parámetros tanto desde el BASIC al código máquina, como en 
sentido contrario. 


Hay varios tipos de parámetros que se pueden pasar al, y 
desde, el código máquina. Veamos los tres tipos más corrien- 
tes. 


El primero es un número entero que puede ser un número O 
una variable numérica entera. El valor debe estar en el ran- 
go de un número en complemento a dos de 16 bits, de forma 
que 31092, 9, 220 y Fx (donde F% es igual a 1000) están per- 
mitidos. 


Cuando se llama a la rutina en código máquina, el registro 
A contiene el número de parámetros que siguen al comando 
CALL. Esto puede ser más o menos útil para usted. Cada pará- 
metro es almacenado usando el registro índice IX (que hemos 
visto parcialmente en el capítulo anterior y que veremos más 
adelante en el diccionario de código máquina). El valor del 
parámetro de dos octetos se almacena con el octeto más bajo 
primero y el más alto a continuación. 


El registro IX contiene la dirección del octeto más bajo 
del último parámetro. El octeto alto del último parámetro y 
los octetos de los demás, si los hay, se almacenan desde la 
dirección IX+1 en adelante. Por lo tanto, si se introduce u- 
na CALL 40000,258, (IX+0) contendrá el octeto bajo 2 y 
(IX+1) contendrá el octeto alto 1. (Si necesita refrescar la 
memoria: los números de 16 bits se calculan 256x*octeto al- 
totocteto bajo, en este caso 256:1+2=258). 


Supongamos que queremos hacer una CALL a 30000 para cargar 
el parámetro en un registro normal de dos octetos, como el 
HL, y que el parámetro es la variable BX%. Su rutina en códi- 
go máquina debe comenzar con LD L,)(IX+0) seguida por 
LD H, (IX+1). Si fuera el tercero desde el último parámetro, 
deber ía ser LD L, (1X+4) seguido por LD H,(IX+5). En otras 
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palabras, el octeto bajo va siempre el primero y para todos 
los parámetros, hay dos octetos apuntados por el registro IX 
más un desplazamiento. 


El segundo tipo de parámetro es también una variable ente- 
ra pero, a diferencia del anterior, se puede devolver desde 
el código máquina al BASIC. Para conseguir esto en la CALL, 
se debe añadir un carácter e” delante del nombre de la va- 
riable. (Naturalmente, debe ser una variable y no un núme- 
ro). CALL 40000,0B% hará que (IX+0) e (IX+1) contengan la 
dirección del valor de BxX. 


Por lo tanto, si quiere alterar el valor de B%, debe en- 
contrar la dirección donde está almacenada examinando (1X+0) 
e (IX+1). Después debe modificar las dos posiciones de memo- 
ria que contienen el valor de B% antes de volver al BASIC. 


Por ejemplo, si quiere alterar el valor de BX a 258, debe 
cargar las posiciones de memoria dadas por (IX+0)+256x (IX+1) 
con 2 (el octeto inferior) y las posiciones de memoria dadas 
por (IX+0)+256x (IX+1)+1 con 1 (el octeto superior). 


Cambio del Octeto Inferior 


Echemos una breve ojeada a otro pequeño programa en código 
máquina. Este acepta la CALL con un parámetro y cambia lo 
que hay en el octeto inferior del parámetro, por un Ó. Si 
quiere puede usar el programa cargador hexadecimal para pro- 
bar la rutina. 


Ensamblador Hexadecimal 
LD L, (1X+0) DD 6E 00 
LO H, (1X+1) DD 66 01 

LO (HL) ,6 36 06 

RET Cc9 


La primera línea toma el octeto inferior de la dirección 
del parámetro y lo pone en el registro L. La segunda línea 
toma el octeto superior de la dirección del parámetro y lo 
pone en el registro H. Con la dirección del parámetro carga- 
da en el par de registros HL podemos alterar el valor de la 
variable, alterando la memoria apuntada por ese par de re- 
cistros. En la tercera línea, lo cambiamos a só. (En un 
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momento le mostraremos un par de cosas más que se pueden ha- 
cer con él). En la cuarta línea volvemos al BASIC. 


Para usar la rutina teclee: B%=0: CALL 40000,0B%. Si impri- 
mimos B% después de ejecutar la rutina, veremos que B% tiene 
ahora el valor 6. Puede jugar experimentando con el código 
máquina, altere el número hexadecimal de la tercera línea 
(06 en el listado) por otro valor y ejecute la rutina de 
nuevo. Bx tendrá ahora el nuevo valor. Mirando los códigos 
de operación que hay al final del libro, altere la instruc- 
ción LD (HL),nnm a LD (HL),A. Esto nos devolverá el número de 
parámetros disponibles. 


Manejando cadenas 


El tercero y último de los tipos de parámetros que estamos 
viendo, es de cadena. Este funciona de una forma ligeramente 
diferente de la información numérica. Para empezar, solo 
puede usar variables de cadena; no puede poner CALL 
40000,'"AMSTRAD". Aquí también debe preceder al nombre de la 
variable el carácter 0” 


El registro IX contiene la dirección del parámetro, como 
en los casos numéricos, pero esta vez no es la dirección 
donde reside en memoria, sino la dirección de otra posición 
de memoria - el comienzo del bloque de descripción de cade- 
na. Este bloque contiene la dirección donde comienza la ca- 
dena y su longitud. 


El primer octeto del bloque de descripción de cadena es la 
longitud de la cadena, y tiene un valor entre 0 y 295. Los 
dos octetos siguientes forman la dirección de memoria donde 
comienza la cadena, y está en la forma habitual de el octeto 
inferior primero y el superior a continuación. Esta es la 
dirección del primer carácter de la cadena. La cadena debe 
estar definida de antemano, aunque solo sea como A$="". 


Una Rutina de Tratamiento de cadenas 


Esta pequeña rutina toma la cadena y nos dice su longitud. 
Para hacer esto necesitamos un parámetro adicional, una va- 
riable entera que contenga el valor devuelto. 
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Ensamblador Hexadecimal 


LD L, (1X+0) DD 6E 00 
LD H, (1X+1) DD 66 01 
LD A, (HL) 7E 
LD C, (1X+2) DD 4E 02 
LD B, (I1X+3) DD 46 03 
LD (BO),A 02 
RET Cc9 


Ejecute ahora una CALL 40000,9V4%,A$ con A$ y Vx definidas 
de antemano, al terminar tendrá en V% el valor de la longi- 
tud de la cadena Ag$. 
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CAPITULO. SEIS 
Aritmética Simple 


Ahora vamos a realizar algunas operaciones de aritmética 
simple en código máquina. Para hacerlo, necesitamos algunas 
instrucciones nuevas. 


Las operaciones aritméticas más simples en código máquina 
son INC (incrementar) y DEC (decrementar). INC suma uno al 
registro especificado, que puede ser un registro de 8 bits. 
un par de registros de 16 bits o un registro de índice. Ade- 
más, estas instrucciones pueden alterar el valor de una po- 
sición de memoria como en INC (HL) - esto se conoce como di- 
reccionamiento indirecto. 


INC es un comando de un solo octeto. INC A sumará 1 al va- 
lor contenido en el registro A, mientras que INC IX hará lo 
mismo con el contenido del registro IX. Si está incrementan- 
do un registro de 8 bits y el valor del mismo pasa de 299, 
entonces el valor se hará cero. Si se incrementa un par de 
registros de 16 bits, cuando su valor pasa de 65539, también 
se vuelve cero. 


DEC funcioma de la misma forma que INC y todas las  forma- 
ciones de instrucciones que son válidas para INC, también lo 
son para DEC. Estas son: 


INC o DEC (r es un registro de 8 bits) 

INC oO DEC rr (rr es un par de registros de 
16 bits) 

INC o DEC IX 

INC o DEC IY 

INC oO DEC (HL) 

INC Oo DEC (IX+d) 

INC o DEC (IY+d) 


Si decrementa un registro de 8 bits cuando su valor es ce- 
ro, obtendrá el valor 255 - el procedimiento opuesto al de 
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INC. 


Mientras que las instrucciones INC y DEC de 8 bits afectan 
a la mayoría de los señalizadores, las de registros de 16 
bits (cuando se usan con INC o DEC) mo afectan a ninguno de 
ellos. Para las instrucciones de 8 bits, se pone el señali- 
zador de signo (se hace igual a 1) si el bit 7 del resultado 
es 1. El señalizador de cero se pone si el resultado es ce- 
ro. 


El medio acarreo se pone si hay un acarreo desde el bit 4 
del resultado. El señalizador de rebasamiento se pone si se 
altera el bit 7 del resultado. El señalizador de sustracción 
se pone si la última operación realizada ha sido una ins- 
trucción de resta, como DEC. Observe que el señalizador de 
acarreo permanece sin alterar. 


Suma y Resta 


ADD y SUB son dos ejemplos de nemotécnicos fáciles de en- 
tender. Es bastante obvio que son abreviaturas de las pala- 
bras inglesas *addition* (suma) y *substraction” (resta). 


ADD y SUB funcionan solamente con un registro de 8 bits, 
el A, y con el par de registros HL y los registros Índice, 
IX e IY, de 16 bits. Aparte de sus funciones, que difieren, 
la sintaxis es casi la misma. 


ADD y SUB se pueden comparar con ciertos comandos del 
BASIC. Así mos damos una idea más clara de como se pueden u- 
sar en una rutina: 


LET A=A+9 ADD A,9 
LET A=A+C ADD A,C 
LET A=A-C suB A,C 
LET A=A-178 SUB  A,178 


Solamente el registro A puede trabajar directamente con 
estos comandos. ADD B,9 o ADD C,D no están permitidos. Por 
lo tanto, si quiere realizar operaciones aritméticas con o- 
tros registros, debe usar un procedimiento similar a este, 
que resta 8 del registro E. 


26 


LD AE (Carga A con el contenido de E) 
suB 8 (resta 8 de A) 


LD E,A (carga E con A, el nuevo valor de E) 


Siempre que tenga que hacer una suma o una resta usando un 
registro de 8 bits, debe asegurarse de que el resultado de 
la operación cabrá dentro de un número de 8 bits. 


Para las operaciones que den un resultado mayos, se puede 
usar la suma y resta de 16 bits. La mayoría de las operacio- 
nes de aritmética de 16 bits se realizan con el par de re- 
gistros HL. A estos se le pueden sumar y restar otros pares 
de registros, como vemos aquí: 


ADD HL,BC 
ADD  HL,DE 
ADD HL,HL 
ADD HL,SP 


Tenga en cuenta que el segundo par de registro no es modi- 
ficado por esta instrucción. Las operaciones aritméticas con 
los registro índice funcionan así: 


ADD  IX,BC 
ADD  IX,DE 
ADD IX, IX 
ADD  IX,SP 


IY se maneja de la misma forma. No hay ninguna instrucción 
que pueda sumar directamente un número a HL. Una forma de 
hacer esto sería cargar el número deseado en DE y usar  —des- 
pués ADD HL,DE, pero así perder íamos el contenido del par de 
registros DE. El señalizador de acarreo también resulta a- 
fectado por estas operaciones. Así, si el resultado obtenido 
es mayor de 65535, se pone el señalizador de acarreo a 1, en 
caso contrario se pone a 0. 
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Punto y Acarreo 


Hay otras dos instrucciones que tienen que ver con la suma 
y la resta. Funcionan de la misma manera que ADD y SUB, ex- 
cepto en que hacen uso del señalizador de acarreo. Estas son 
ADC (suma con acarreo) y SBC (resta con acarreo). En el caso 
de la aritmética de 8 bits, solo funcionan con el registro A 
como las anteriores. En aritmética de 16 bits funcionan so- 
lamente con el par de registros HL, pero no con los regis- 
tros índice IX e IY. ADC y SBC incluyen el señalizador de a- 
carreo en el cálculo, por lo que su equivalente en BASIC se- 
ría: 


LET A=A+S+acarreo ADC A,5 
LET A=(A-12)-acarreo SBC A,12 


Estas instrucciones son muy potentes ya que permiten rea- 
lizar operaciones aritméticas con números de 32 bits. Algu- 
nas veces necesitará asegurarse de que el señalizador de a- 
carreo está a cero antes de usarlo. Una forma de hacerlo es 
usando la instrucción AND A que no altera el valor contenido 
en A pero pone el señalizador de acarreo a cero, ya que no 
produce acarreo. 


No hay División 


Ya habrá observado que no hay instrucciones de multiplica- 
ción ni de división. Si su programa requiere fórmulas com- 
plejas y cálculo, puede que sea mejor escribir esas partes 
en BASIC. Una desventaja del código máquina es su dificultad 
en manejar funciones matemáticas complejas. 


Sin embargo, es posible emular la multiplicación fácilmen- 
te, usando la instrucción ADD. El registro A contendrá el 
valor original, y la respuesta una vez que se haya ejecutado 
la multiplicación. 


La multiplicación por 2 es muy simple: ADD A,A 


En efecto, cualquier número dentro del rango de 8 bits y 
que sea miembro de la familia, como  2x2=4x2=8x2=16x2=32, 
puede usarse facilmente como multiplicador. 
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ADD A,A 


ADD , = multiplicación por 4 y 
ADD A,A 

ADD A,A 

ADD A,A = multiplicación por 8 


Puede continuar así de forma que cuatro instrucciones ADD 
sirven para multiplicar por 16, cinco por 32 y así sucesiva- 
mente. 


Otros multiplicadores no son tan fáciles de emular, pero 
se puede hacer usando la instrucción LD y en algunos casos 
SUB. Aún así, se pueden realizar con muy pocas instrucciones 
y pueden resultar interesantes para usarlas en sus rutinas 
en el futuro. He aquí unos ejemplos: 


LD B,A 
ADD A,A = x 3 
ADD A,B 
LD B,A 
ADD A,A 
ADD A,A = x 7 
ADD A,A 
SUB A),B 


Observe la últimas instrucciones de la rutina de multipli- 
cación por siete. Si mira la tabla de Códigos de Operación, 
verá que no están en ella. Lo que sucede es que SUB Bes e- 
xactamente lo mismo que SUB A,B. Puede eliminar la A al es- 
cribirlo, ya que estas instrucciones solamente funcionan so- 
bre el registro A. Esto se aplica a todas las operaciones 
SUB que parece que aparentemente usan un solo registro. 
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CAPITULO: SITE 
Pila y Saltos 


La Pila 


Hay un área de memoria RAM que está prevista para almace- 
nar piezas de información que ayudan a la máquina a saber lo 
que está haciendo. Funciona de la siguiente forma: 


La palabra "pila" (stack) es algo que se usa en informáti- 
ca para expresar exactamente lo que significa. Imagine una 


pila de cajas de cartón. Cada caja representa una posición 
de memoria, a la que se le asigna una dirección - pero si 
quiere saber lo que hay dentro de una caja determinada, la 


única que puede ver facilmente es la de arriba. Si intenta 
coger una de enedio, se le caerán encima todas las cajas que 
hay sobre ella. Y, la única forma de añadir facilmente una 
caja a la pila es poniéndola en la parte superior. 


Las posiciones de memoria de la pila están situadas de la 
misma forma. Se pueden poner cosas encima, pero solamente 
encima, y solo se pueden tomar de la parte superior. 


Hay dos palabras especiales para manejar la pila - una de 
ellas significa "apilar un nuevo número en lo alto" y la o- 
tra "tomar un número de lo alto"; la primera palabra es 


PUSH, la segunda es POP. Si hace PUSH del número cinco en la 
pila, y después hace PUSH del número 9ABC, y luego hace PUSH 
de, digamos, 8000h, el primer número que obtendremos al  ha- 
cer POP sería 8000h, ya que este es el número que está ahora 
en lo alto de la pila (ya que fué el último del que hicimos 
PUSH); el segundo número que  obtendríamos con POP sería 
9ABC, y el tercero sería el cinco. 


La pila se almacena en las direcciones más altas de la me-- 
moria del AMSTRAD, para evitar que el programa BASIC -*coli- 
sione!? con la pila cuando uno de los dos crezca. La pila es 
realmente muy peculiar, ya que crece de arriba hacia abajo. 
Es más eficiente de esta forma. Por lo tanto recuerde que, 
la pila, o la pila de la máquina como se le suele llamar, es 
como una pila de cajas de cartón amontonadas en el suelo de 
una tienda, excepto que, desafiando las leyes de Newton, ha 
decidido apoyarse en el techo y crecer hacia abajo. La parte 
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alta - la única parte de la que puede tomar cosas - está ha- 
cia abajo. 


La pila es sumamente importante en un ordenador, de forma 
que hay un registro especial que solamente se usa para alma- 
cenar la posición de lo alto de la pila (la parte con la di- 
rección menor - la que podemos tomar). El registro se llama 
SP, que es la abreviatura de Stack Pointer (apuntador de pi- 
la). Es realmente un par de registros porque almacena dos 
octetos separados, pero a diferencia de los otros pares de 
registros (BC, DE y HL) mo podemos separarlo en dos mitades 
- están pegados sólidamente. 


Aquí es donde trabajan las instrucciones PUSH y POP. Lo 
vamos a explicar en hex porque así nos resultará más fácil. 
Supongamos que HL contiene el valor ABCD. Esto significa que 
H contiene el valor AB y L el valor CD. Ahora, la instruc- 
ción PUSH HL almacenará el número ABCD en lo alto de la pi- 
la. Esto lo hace almacenando primero la parte alta (AB), y 
después la parte baja (CD). Después alterará el valor de SP 
ya que se han añadido dos octetos más a la pila, y la posi- 
ción de la parte alta habrá bajado dos posiciones. 


Desafortunadamente no es posible almacenar registros sim- 
ples en la pila. Solamente se puede hacer PUSH de pares de 
registros, así se puede hacer PUSH de BC, pero no de B sola- 
mente. Debemos tener en cuenta que PUSH BC no altera el va- 
lor de BC, simplemente copia su contenido sin cambiarlo. Es- 
to, por supuesto, es aplicable a todas las instrucciones 
PUSH. 


La instrucción PUSH se puede emular en BASIC con tres sen- 
tencias separadas: 


PUSH HL SP=SP-2 
POKE SP+1,H 
POKE SP,L 


POP, por supuesto, funciona al revés. POP HL toma primero 
el registro L de la pila, y después el registro H. SP cambia 
también, ya que la parte alta de la pila se mueve. 
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POP. HL L=PEEK SP 
H=PEEK (SP+1) 
SP=SP+2 


Verifique, usando las sentencias BASIC dadas. que PUSH HL 
seguida de POP DE es lo mismo que LD D,H seauidc de LD E,L. 


PUSH 


He aquí los códigos de la instrucción PUSH. Una de ellas 
requiere una pequeña explicación. 


ES PUSH AF 
ES PUSH BC 
DS PUSH DE 
ES PUSH HL 


El par de registros AF, que normalmente no se pueden usar 
como tal, está construido por los dos registros A y F, de la 
misma forma que BC está formado por B y Cl. A es un registro 
que ya hemos usado, perc F es algo completamente diferente. 
La F significa Flags (señalizadores). Para comprender el 
trabajo de F debe mirarlo en forma binaria. F puede, por e- 
jemplo, tener el valor 41h, que en binario es 01000001. Cada 
uno de los dígitos es cero c uno, y cada uno de los diferen- 
tes dígitos tiene un significado que corresponde a un  seña- 
lizador. Uno de estos señalizadores, el de acarreo, está al- 
macenado en el dígito binario más a la derecha de F. 


POP 


0 
Ún 


Los códigos de las instrucciones POP son similares a 1l 
usados para PUSH. Estos son: 
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Fi POP AF 


c1 POP. BC 
D1' POP. DE 
El POP HL 


Una de las utilidades principales de PUSH AF y POP AF. es 
hacer PUSH y POP del valor del registro A. El hecho de que F 
se introduzca también en la pila puede ser ignorado. PUSH AF 
almacenará el valor de A hasta que se necesite de nuevo, en 
cuyo momento se puede recuperar mediante el uso de POP AF. 
Esto puede ser útil si tiene que usar el registro Á para re- 
alizar cálculos que no se pueden realizar con otro registro, 
pero donde el valor de A puede necesitarse en otro punto del 
programa. 


Por ejemplo, para sumar 25 al valor de B usin alterar el 
valor de A (o cualquier otro registro): 


ES PUSH AF 

78 LD A)B 

c619 Ñ ADD A,19h (=25d) 
47 LD B,A 

Fi POP AF 


¿Porqué solo se va a alterar el registro B y no cualquier 
otro? Trate de averiguar lo que hace la rutina anterior, an- 
tes de seguir leyendo. 


Alterando el SP 


Se puede usar el registro SP casi en la misma forma que u- 
samos BC y DE. Podemos sumarle o restarle, y también se pue- 
de cargar. Los códigos hex son: 


F9 LD SP, HL 
317777 LD SP, nn 
ED7B7777 LD SP, (nn) 
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ED737777 LD (nn) ,SsP 


39 ADD HL,SP 
ED7A ADC  HL,SP 
ED72 SBC  HL,SP 
33 INC — SP 
38 DEC SP 


Estas instrucciones son muy potentes y útiles. Suponga que 
quiere intercambiar los valores de D y E sin alterar ninguna 
otra cosa. La siguiente rutina lo hará. 


DS PUSH DE 
DS j PUSH DE 
33 INC — SP 
D1 POP. DE 
33 INC — SP 


La instrucción INC SP del final es necesaria para restau- 
rar el apuntador de pila a su valor original. Si no lo hi- 
ciéramos podríamos conseguir un bonito fallo del ordenador. 


SP no es el único registro especializado que se usa. Hay 
otro registro de dos octetos llamado PC, que significa 
Program Counter (Contador de Programa). Su trabajo consiste 
en recordar por donde va ejecutándose el programa. Cada vez 
que el Amstrad tiene que ejecutar una instrucción, echa una 
mirada a lo que le dice el PC. Si le dice A004, se irá a e- 
jecutar la instrucción que hay en la posición A004 de memo- 
ria. Después se incrementa el valor de PC en el número de 
octetos que tiene la instrucción, de modo que la siguiente 
vez iráa ejecutar la siguiente ¡instrucción en secuencia. 
Por ejemplo, si A004 contiene la instrucción LD A,B, el PC 
se incrementará para apuntar a A005. Si la instrucción en 
A005 fuera LD B,>,2 se incrementaría el PC en dos, una vez que 
la hubiera ejecutado, ya que LD B,2 es una instrucción de 
dos octetos. El PC estaría entonces apuntando a A007 donde 
empezaría la siguiente instrucción. 


Si altera el valor de PC, el efecto es como el comando GO 
TO del BASIC. La única diferencia es que el código máquina 
no usa números de línea, de forma que ha de hacer GO TO a la 
dirección correcta en lugar de al número de línea. La 
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instrucción de código máquina que lo hace se llama JP, que 
es la abreviatura de JumP (salto). JP A000 significa GO TO 
dirección A000 y continúa ejecutando el código máquina desde 
ahí. Por supuesto, todo lo que hace esta instrucción es car- 
gar en PC el valor A000 (pero sin incrementarlo al final de 
la instrucción) de modo que cree que la siguiente instruc-= 
ción del programa está en A000. Es bastante más útil para 
nosotros pensar que funcioma como un tipo de GO TO, ya que 
es para lo que la usamos. 


Tenga Cuidado 


Tenga cuidado con el JP. Si crea un bucle infinito en có- 
digo máquina puede ser muy duro. Se habrá hundido con él = 
no podrá cortarlo jamás, a menos que restaure la máquina oO 
la apague. Un ejemplo de un bucle infinito puede ser: 


77 A000 LD (HD) ,A 
23 A001 INC HL 
Cc300F 0 A002 JP A000 
Hemos escrito la dirección en la columma de central. Nor - 
malmente no se hace así sino que se marcan las líneas impor- 
tantes con etiquetas, o palabras que nos dicen qué líneas 


hacen cada cosa. Estas etiquetas no aparecen en hex, y solo 
tienen utilidad cuando se escriben para nuestro propio uso. 
Si por ejemplo, decidimos llamar START a la primera línea, 
nuestro bonito y estúpido programa se escribiría así: 


77 START LD (HL) ,A 
23 INC HL 
Cc300F0 JP START 
Hay otra instrucción, similar a JP, llamada JR, o Jump 


Relative (Salto Relativo). Significa que salte hacia adelan- 
te un número de octetos dado. En muchas formas es mejor que 
JP, porque tiene solo dos octetos de longitud en lugar de 
tres, y porque se puede reubicar la rutina completa cambiar 
el destino de las instrucciones JP. JR 0 no tiene ningún e- 
fecto, y por lo tanto hace que se ejecute la siguiente 
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instrucción, JR 1 hace que salte la siguiente instrucción 
(suponiendo que ésta tenga un solo octeto de longitud). Para 
saltar una instrucción de dos octetos, o dos instrucciones 
de un octeto, necesitará usar JP 2. 


También es posible saltar hacia atrás usando la instruc- 
ción JR, ya que hay una convención que hace que cualquier 
número hex entre 80h y FFh se tomará como un número negativo 
(que será realmente 256d menor que el número que represen- 
ta). Observe que el número menos cinco, por ejemplo, se re- 
presenta como FB, y por lo tanto es posible usar la instruc- 
ción JR -5, pero tenga en cuenta que debido a esta conven- 
ción mo podremos decir JR 129d, por ejemplo, porque 129d es 
81h, que será tomado por -127d y hará un salto hacia a- 
trás.Por lo tanto, el rango al que queda limitada esta ins- 
trucción es desde -128d a +127d. 


No Hace Nada 


JR 0, como ya hemos dicho, mo hace absolutamente nada. 
Continuará ejecutando la siguiente instrucción. Es importan- 
te recordar que los salto relativos se cuentan desde la si- 
guiente instrucción. JR 0 significa que ejecute la siguiente 
instrucción más cero. JR 1 significa que ejecute la siguien- 
te más uno. Consecuentemente, si dijéramos JR -2 deber [amos 
contar hacia atrás dos octetos, empezando en cero con la si- 
guiente instrucción. Observará que dos octetos antes está 
precisamente el comienzo de la instrucción que acabamos de 
ejecutar, JR -2. Por lo tanto, JR -2 es un bucle infinito 
sobre la misma instrucción, y no es una instrucción recomen- 
dable para usarla en nuestros programas. 


El (realmente estúpido) programa del bucle infinito ante- 
rior se puede volver a escribir con un octeto menos usando 
JR en lugar de JP. 


77 START LD (HO) ,A 
2S INC HL 
18rc JR START 
Observe que he escrito '"'JR START" en vez de "JR -4". Esto 


hace al programa mucho más fácil de seguir, ya que todo lo 
que tenemos que hacer es buscar la etiqueta START para saber 
hacia donde nos lleva la instrucción JR. 


37 


JR y JP son más o menos inútiles por sí mismas sin condi- 
ciones añadidas, de la misma forma que el GO TO del BASIC 
sería poco útil si no se usara en conjunto con la instruc- 
ción IF/THEN GO TO. Necesitamos cierto tipo de saltos condi- 
cionados, de forma que podamos decir IF cierta condición es 
verdadera THEN salta a la nueva dirección. Sin esta facili- 
dad,JP y JR solamente se podrían usar para crear bucles in- 
finitos. Aunque el código máquina no tiene la misma flexibi- 
lidad que el BASIC, nos permite comprobar cuatro condiciones 
en JR, u ocho condiciones en JP. Estas son (para JR): 


18ee JR e Salto relativo de e octetos. 


Z20ee JR NZ, ee IF el último resultado 
calculado no fué cero 
THEN Salto relativo de 


e octetos. 


2Z8ee JR Z,e IF el último resultado 
calculado fué cero 
THEN Salto relativo de 


e octetos. 

30ee JR NC,e IF ACARREO=0 THEN 
Salto relativo de 
e octetos. 

38ee JR Cc,e IF ACARREO=1 THEN 


Salto relativo de 


e octetos. 


Y para JP: 


C3qapp JP pa Salto a la dirección pa. 
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C2qapp JP NZ, pa 
CAqapp JP Z,pa 
D2aapp JP NC, pa 
DAgqapp JP C,pa 
Elaapp JP PO, pa 
EAaapp JP PE, pa 
FZaapp JP P,)pa 
FAqapp JP M, pa 


Ahora, aunque 
BASIC sería IF A$='"HOLA" 


el código máquina. 


está muy 


IF el último resultado 
calculado no fué cero 


THEN salto a la dirección pa. 


IF el último resultado 
calculado fué cero 


THEN salto a la dirección pa. 


IF ACARREO=0 THEN salto a 


la dirección pa. 


IF ACARREO=1 THEN salto a 


la dirección pa. 


Ver más abajo. 


Ver más abajo. 


IF el último resultado 


calculado fué positivo (+) 


THEN salto a la dirección pa. 


IF el último resultado 


calculado fué negativo (-) 


THEN salto,a la dirección pa. 


lejos de poder hacer lo que en 
THEN PRINT "ADIOS", pronto verá que 
aún esta tarea tan tonta también se puede llevar a cabo con 
Primero tenemos que explicar dos de las 


instrucciones de la lista anterior - JP PO y JP PE. Como 


puede suponerse, JP PO significa IF 


rección pa, y JP PE significa IF PV= 


Pv=0 THEN salta a la di- 
1 THEN salta a la direc- 


ción pq. Pero ¿qué es PV exactamente?. 


Repuesta: PV es otro señalizador 


- parecido al de ACARREO. 
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Solamente puede almacenar uno de dos valores - uno o cero. 
La P significa Parity (paridad) y la V significa oVverflon 
(rebasamiento), ya que el ordenador, como los buenos matemá- 
ticos, no puede deletrear correctamente. Su uso es bastante 
fácil de explicar: 


JP PO se puede considerar como JP NV (salto por 


No-rebasamiento) 


JP PE se puede considerar como JP V (salto por 


rebasamiento) 


Técnicamente no puede escribir JP NV” o JP V ya que mo es 
una convención estándar, pero es una ayuda para la memoria. 
Pienso que no importa si usted es convencional o no mientras 
sepa lo que significa (NV=PO y V=PE). 


Ahora, veamos el rebasamiento. Si consideramos los números 
entre 80 y FF como números negativos y entre 00 y 7F como 
números positivos, pueden suceder algunas cosas extrañas en 
la aritmética, si tratamos de cruzar la frontera. Por ejem- 
plo, 41h (positivo) más 41h (positivo) será igual a 82h 
(¿negativo?). A este tipo de equivocación se le llama reba- 
samiento, por lo tanto JP V' saltará si ocurre este tipo de 
rebasamiento y JP NV saltará si mo ocurre. En términos sim- 
ples, ocurre un rebasamiento si el resultado de cualquier o- 
peración aritmética, actuando en números en convención posi- 
tivo/negativo (también llamada convención de ''complemento a 
dos'') da una respuesta con "signo equivocado". 


Repitiendo una vez más: JP NV es una forma no estándar de 
escribir JP PO, y JP V es otra forma de escribir JP PE. Por 
lo tanto NV=PO y V=PE. Usted debe inventar alguna forma de 
recordarlo. 


Todas estas instrucciones, si se combinan adecuadamente 
con otras, pueden comprobar cualquier situación concebible. 
En efecto, solo hay otro tipo de instrucción necesaria para 
hacer a JP y JR tan potentes como IF/THEN/GO TO - esa ins- 
trucción se llama CP, o ComParación. 


CP compara el registro A con cualquier otro registro o con 
cualquier constante numérica. Por ejemplo, podemos tener CP 
B (Comparar A con B) o CP L (Comparar A con L) o CP 3E (Com- 
parar A con el número 3E). Lo que hacen realmente estas ins- 
trucciones se puede comparar con la sentencia BASIC, DUMMY = 
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A-B. 

En otras palabras, se realiza una resta, pero no se tiene 
en cuenta su resultado, y el valor de A permanece sin alte- 
rar. Sin embargo, los señalizadores si cambian y se ponen de 
acuerdo con el resultado. Si A contiene 05 y B contiene 06, 
después de la instrucción CP B, saltará con una instrucción 
JP NZ (ya que 05-06 no da cero), JP C saltará (ya que 095 es 
menor que 06), JP NV saltará (mo hay rebasamiento ya que el 
resultado de 05-06=FF es negativo y se suponía que lo era) y 
JP M saltará (ya que FF es negativo). Aunque realmente se e- 
fectúa la resta, debemos hacer incapié en que el resultado 
es desechado, y el valor de A no cambia. 


Puede hacer algunos trucos útiles con CP: 


IF A=B THEN GOTO ... CP.B-/ URZ e 

IF A<B THEN GO TO... CP B/JRC 

(Esta solo funciona si asumimos que todos los números 
son positivos) 


IF A<B THEN GO TO ... CPB/JPM 


CALL 


También en código máquina podemos llamar a subrutinas. El 
equivalente en código máquina del GO SUB del BASIC es. la 
instrucción CALL. CALL paq se utiliza para hacer un GO SUB a 
la subrutina cuyo punto de entrada está en la dirección pa. 
El equivalente a la instrucción RETURN es RET. Creo que le 
resultará familiar. RET tiene un doble propósito - al final 
de una subrutina significa "retorna desde esta subrutina'"'; 
si no hay subrutina de la que retornar, significa "retorna 
al BASIC". CALL y RET pueden tener condiciones impuestas, 
como vemos a continuación: 


CDaapp CALL pa Cc9 RET 
C4qapp CALL NZ, pa co RET  NZ 
Cccaapp CALL Z),pa c8 RET Z 
D4qapp — CALL NC,pa DO RET NC 
DCaapp CALL C,pa D8 REF T 
E4aapp CALL PO,pa E0 RET PO 
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"CALL NV,pq" "RET NV" 


ECagqapp CALL PE),pa ES RET PE 

"CALL V,pa" "RET  V" 
F4qapp CALL P,pa FO RET P 
FCaapp CALL M,pa F8 RET M 


Como habrá imaginado, las instrucciones como RET Z se pue- 
den usar también para volver condicionalmente al BASIC, ej. 
RET Z es igual a IF cero THEN RETURN al BASIC. 


En BASIC no hay pila, «por lo tanto no necesitamos preocu- 
parnos de ella. En código máquina, sin embargo, si la hay y 
por lo tanto necesitamos preocuparnos de ella. Hay dos ins- 
trucciones además de PUSH y POP, que alteran la pila. Se 
llaman CALL y RETURN. 


CALL pa es equivalente a PUSH "la dirección de la siguien- 
te instrucción a ejecutar", seguido por JP paq. 


RET es equivalente a POP DUMMY seguido por "salta a la di- 
rección DUMMY". 


Usted debe ser capaz de ver cómo este procedimiento hace 
que CALL y RET . actúen como deben. Aunque es bastante efi- 
ciente, hay algunas cosas que debemos ver. 


El valor de SP no debe ser alterado durante el curso de u- 
na subrutina, ya que CALL y RET tienen que ver con la pila. 
Usted puede hacer PUSH en la pila tantas veces como quiera 
durante la subrutina, siempre que haga el mismo número de 
POPs antes de intentar el retorno. Un truco muy interesante 
que debe conocer es cómo alterar la dirección de retorno de 
una subrutina. Digamos que queremos poner B000 como direc- 
ción de retorno. Veamos cómo se hace: 


El POP HL 
21000 LD HL,B000 
ES PUSH HL 


La primera instrucción borra de la pila la dirección de 
retorno original. La segunda y tercera la reemplazan por una 
nueva dirección de retorno alternativa. Cuando llegue más a- 
delante una instrucción RET, el control "retornará" a la di- 
rección B000. Otro truco útil que debe conocer es cómo a- 
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segurarse de que sus subrutinas siempre saldrán con la pila 
"equilibrada". Una forma de hacerlo es almacenar el valor 
del apuntador de la pila en alguna parte para recogerlo al 
final. 
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CAPITULO OCHO 
Diccionario de Términos 
de Código Máquina 


Este capítulo es una pequeña guía de referencia de lo a- 
prendido en los capítulos anteriores. Este diccionario  con- 
tiene una breve descripción de todos los Códigos de Opera- 
ción del 280, los registros y un tipo de comandos llamado 
directrices que se encuentran en casi todos los listados de 
ensamblador. Estos resúmenes le dan la oportunidad de com- 
probar comandos particulares o facilidades que puede no ha- 
ber comprendido completamente, así como una fuente de refe- 
rencias para cuando, en el futuro, trate de usar los coman- 
dos o registros menos usados. 


El diccionario incluye también detalles de los códigos de 
operación del 280 que no han sido explicados. La lectura de 
la explicación que se proporciona aquí le dará un buen cono- 
cimiento de su uso y funcionamiento. 


Registros 


Además de los registros A, B, C, D, E, H y L, y los seña- 
lizadores de signo, PV y acarreo, hay otro grupo de regis- 
tros y señalizadores, aunque mo todos ellos son útiles. Vea- 
mos primero los registros. 


1X es un par de registros; sin embargo no se puede dividir 
en los octetos que lo componen, como el HL. Cualquier  ins- 
trucción en código máquina que involucre al HL (siempre que 
no vaya entre paréntesis) puede ser escrito con el IX en vez 
de con el HL. (Hay tres excepciones a la regla: EX DE,HL 

ADC HL y SBC HL). El código hex de este tipo de instruccio- 
nes es DD seguido por el código hex correspondiente a la 
misma instrucción con el registro HL. Cualquier instrucción 
en código máquina que involucre al registro (HL) (entre pa- 
réntesis) se puede escribir con (IX+dd) en lugar de hacerlo 
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con el HL - la dd representa un octeto cualquiera. Por ejem- 
plo, si tenemos una instrucción LD (HL),03 también existe u- 
na instrucción LD (IX+2A),03. El octeto de desplazamiento 
puede ser muy útil. (Hay una excepción a esta regla: JP (HL) 
solo se puede escribir como JP (IX) - no JP (IX+dd). El có- 
digo de este tipo de instrucción es DD seguido del código 
hex de la instrucción correspondiente ,» pero con el octeto 
de desplazamiento insertado en el tercer octeto del código 
hex. Por ejemplo, el código hex para LD (HL),03 es 3603; por 
lo tanto, el código hex de LD (IX+2A),03 es DD362A03. 


IY es otro par de registros. Se usa de la misma forma que 
el IX, excepto que el código hex de las instrucciones que 
involucran al registro IY usan el octeto FD en lugar del DD. 
Aunque la primera letra de los dos registros se la Il, no 
tienen la parte alta común, y son totalmente independientes 
el uno del otro. 


sP es el apuntador de la pila. es un par de registros como 
el BC o el DE, sin embargo, los dos octetos que lo componen 
no se pueden separar. SP siempre apunta al dató de más arri- 
ba de la pila de la máquina. Si cambia el valor de SP, se 
crea una nueva pila automáticamente en la dirección especi- 
ficada. Las direcciones inmediatamente por debajo del valor 
actual de SP corren el riesgo de ser reescritas sin el con- 
sentimiento previo de la rutina de manejo de interrupciones 
del 280 (ver DI). 


A es un registro del que debe conocer todo. A veces se le 
llama el acumulador, ya que se puede usar de una o dos for- 
mas en las que no se puede usar ningún otro registro. (ej. 
ADD A,06). 


B,C,D,E,H y L. Estos son los registros con los que tiene 
que estar familiarizado. 


El Juego de Alternativo Registros, se compone de los re- 
gistros A*,B*,C*,D*,E?*,F*,H”* y L” y son de poco uso, excepto 
para copiar el contenido de los registros normales por segu- 
ridad. Sin embargo, el Locomotive BASIC usa estos registros, 
por lo que no se recomienda usarlos em el Amstrad. 


F es el registro que contiene los señalizadores que hemos 
visto anteriormente. 
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Todas las instrucciones 


Por el momento solo hemos visto unas cuantas instrucciones 
Z80, por lo que suponemos que estará interesado expandir su 
vocabulario. Aquí le damos una lista detallada de todas las 
instrucción disponibles. Se van a tratar por orden alfabéti- 
co, de forma que pueda usar este capítulo como un pequeño 
diccionario de instrucciones de código máquina. Por esta ra- 
zón vamos a volver a ver los que ya hemos estudiado en capí- 
tulos anteriores. Puede ser interesante volver a leerlos pa- 
ra que nos sirva de refresco de la memoria. 


ADC Empezamos com ADC. Aparece en dos formas: ADC A,r y 
ADC HL,s. Lar se usa para especificar que puede ser  —cual- 
quiera de los registros A, B, C, D, E), H, L, una constante 
numérica o el contenido de una dirección (HL), (1IX+d) o 
(IY+d). ADC A,r es una instrucción de un solo octeto. Calcu- 
la la suma de A más r más el ACARREO y almacena resultado en 
A. ADC HL,s es una instrucción de dos octetos que suma HL 
más s más el ACARREO, y almacena el resultado en HL. La s 
significa cualquiera de los pares de registros BC, DE, HL, 
IX o IY. ¿Podría decirnos porqué (ignorando los señalizado- 
res) ADC A,A hace lo mismo que RLA?. 


ADD Muy similar a ADC, excepto que no se usa el señalizador 
de acarreo en la operación. Sin embargo sí le afecta el re- 
sultado final. Hay dos importantes diferencias entre ADC y 
ADD. Primero, el juego de instrucciones ADD HL,s (donde s 
significa lo mismo que en la instrucción ADC) son instruc- 
ciones de un octeto en lugar de dos. Segundo, está permitido 
Usar otras dos instrucciones ADD IX,s y ADD IY,s. 


AND Esta instrucción solo tiene una forma - AND r. El va- 
lor del registro A se altera de bit en bit. Si ese bit es 
cero, permanece sin modificar, en caso contrario toma el va- 
lor del bit de r correspondiente. Por lo tanto, AND 00 dará 
siempre cero como resultado y AND FF deja el registro A sin 
alterar. AND afecta a todos los señalizadores, el bit de a- 
'carreo se pone siempre a cero. 


BIT El formato de esta instrucción es BIT n,r, donde n es 
un número entre cero y siete. La instrucción altera el seña- 
lizador de cero (solamente) de acuerdo con el valor actual 
del bit en cuestión. Si el bit es cero, el señalizador de 
cero se pone a uno, en caso contrario se pone a cero. Esta 
instrucción se puede usar en combinación. con JR Z (que sal- 
tará si el bit era cero) o con RET NZ (que retornará si el 
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bit no es cero). BIT no altera el contenido de los regis- 
tros, ni cambia el valor del señalizador de acarreo. Es una 
instrucción de dos octetos. Yo no suelo usarla casi nunca, 
pero cuando se necesita puede ser muy práctica. 


CALL Ya hemos visto antes esta ¡instrucción - es como el GO 
SUB. Su funcionamiento exacto es este: hace PUSH en la pila 
de la dirección de retorno y después salta a la dirección a 
la que llama. Debido a que la dirección de retorno (ahora 
en la pila) se usa en la instrucción RET, es de vital impor- 
tancia que la subrutina no altere la pila. En la subrutina 
solo puede hacer PUSH de datos siempre que haga POP de ellos 
antes de retornar. CALL se puede usar también con condicio- 
nes - por ejemplo, CALL Z,pq (pa es uma dirección absoluta) 
que significa IF está puesto el señalizador de cero, enton- 
ces haz CALL pa, en caso contrario continúa con la siguiente 
instrucción. 


CCF” Complementa el señalizador de acarreo. Si el señaliza- 
dor de acarreo era cero, se pone a uno, y si era uno se pone 
a cero. 


cP En la forma CP r, calcula el resultado de restar r de 
A, pero no almacena el resultado en ninguna parte. El valor 
anterior de A (y por supuesto el de r) permanecen sin alte- 
rar. Sim embargo alteran todos los señalizadores, de forma 
que se pueden usar instrucciones conmdicionales como JP Z O 
JP C. CP r seguido por JR Z saltará si A es igual a r (ya 
que Á menos r es cero) y así sucesivamente. 


CPD puede imaginarse esta instrucción como CP (HL) seguida 
de DEC HL y de DEC BC. El señalizador PV se pone a cero si 
BC se pone a cero al decrementarse, y a uno si no lo hace. 
El señalizador de cero se pone si la parte CP de la instruc- 
ción encuentra que Á es igual a (HL), en caso contrario se 
pone a cero. 


CPDR Básicamente es igual que CPD, excepto que la instruc- 


ción se ejecuta una y otra vez - es una forma de bucle auto- 
mático. CPDR significa ComParar, Decrementar y Repetir. El 
bucle terminará en uno de estos dos casos: (I) cuando la 


comparación encuentra que Á es igual que (HL) o (II) BC 1lle- 
ga a cero, en cuyo caso se pone a cero el señalizador PV. 


CPI Es como CPD, excepto que HL se incrementa en lugar de 
decrementarse. 


CPIR Es como CPDR , excepto que HL se incrementa en lugar de 
decrementarse. 


CPL Es una abreviatura de ComPLementar. El registro ÁA se 
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altera bit a bit. Si un bit particular está a uno, se pone a 
cero, y viceversa. En otras palabras, si A tenía 11010101 
(en binario), después de una instrucción CPL se cambiaría a 
00101010 (binario). Es el equivalente de restar A de FF. Los 
señalizadores no resultan afectados por esta instrucción. 


DAA Suponga que quiere sumar 16 y 26 sim convertir los nú- 
meros a hex. Puede hacer lo siguiente: LD A,16 seguido por 
ADD A,26. Por desgracia, como la máquina trabaja en hex, el 
valor final de A será 3C en lugar de 42. La instrucción DAA 
(Ajuste Decimal del Acumulador) cambiará el valor de A de 3C 
a 42. Su funcionamiento es realmente complicado - toma nota 
de lo que ha ejecutado y si a sumado o restado; pero siempre 
funciona correctamente. Por ejemplo, la secuencia LD A,42 
seguida de SUB 06 volverá a poner A con el valor 3C, pero 
esta vez el DAA lo cambiará a 36, ya que 42 menos seis es 
36. La instrucción cambia cada uno de los señalizadores de 
acuerdo con el resultado. 


DEC” Esta es otra de las instrucciones que aparecen en dos 
formas. Puede ser DEC r (un registro simple) o DEC s (un par 
de registros). DEC r es fácil de comprender - el valor del 
registro r es decrementado (se le resta uno, ose cambia 
desde 00 a FF), el señalizador de acarreo permanece sin al- 
terar y el de cero cambia como se espera que lo debería ha- 
cer. DEC s, sin embargo, es una instrucción traidora, el se- 
ñalizador de cero ino se altera!. En efecto, no se altera 
ninguno de los señalizadores. Por lo tanto, DEC BC/JR  NZ,-3 
es un bucle infinito o mo tiene ningún efecto. Debe tener 
mucho cuidado y recordarlo siempre - muchos de nuestros pri- 
meros programas fallan debido a ello. 


DEFB hablando técnicamente no es una instrucción de código 


máquina - es lo que se llama una directriz. La palabra DEFB 
debe ir seguida por uno o más octetos de datos, cada uno se- 
parado por una coma. Se suelen poner los datos en hex, pero 


no siempre es necesario, ej DEFB 3A,45d,11011110b,'f" es vá- 
lido. Los datos se insertan dentro del programa en código 
máquina, en el punto en que ocurren y en el orden en que es- 
tán listados. Los datos que forman parte de un programa en 
código máquina, no se deben ejecutar, ya que el 280 no puede 
distinguir entre datos y programa. 


DEFM es similar a DEFB, excepto que los datos que siguen a 
la palabra DEFM deben ser una cadena de caracteres flanquea- 
dos por comillas. Las comas dentro del texto se interpretan 
también como datos, no como separadores. Por ejemplo, DEFM 
"SOLSTICIO" hace que se inserten los octetos 53 4F 4C 53 54 
49 43 49 4F dentro del programa. DEFM significa DEFine Men- 
saje, al contrario que DEFB que significa DEFine Bytes (De- 
fime Octetos). 
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DEFS Otra directriz. Esta significa DEFine Space(s) (Define 
espacios). La palabra DEFS debe ir seguida de una constante 
numérica. (Solo una, recuérdelo). El ensamblador insertará 
tantos ceros como indique el número. Por lo tanto, DEFS 08 
insertará ocho octetos en ese punto del programa. DEFS se u- 
sa principalmente para definir "variables" en RAM; ej. PEDRO 
DEFS 02 (PEDRO es una etiqueta) y en algún otro lugar del 
«programa LD (PEDRO) ,HL. 


DEFW Una de las últimas directrices (por ahora). DEFN signi- 
fica DEFine Word (Define palabra). Se usa de forma similar a 
DEFB, excepto que los datos tienen dos octetos de longitud, 
no uno, por lo que DEFNW 4000 es equivalente a DEFB 00,40. 
Observe cómo se han cambiado los octetos de orden. Con DEFW 
se podemos usar etiquetas y expresiones, por lo que DEFL 
7000,PEDRO, JUAN+3 es totalmente válido. 


DI Significa Disable Interrupts (Inhabilitar interrupcio- 
nes) y, aunque suena bastante confuso, su uso es inmensamen- 
te simple. Cincuenta veces cada segundo se manda un impulso 
a las patillas del chip 280. Hay un señalizador llamado 
IFF1), que significa Flip Flop 1 (un flip flop es un disposi- 
tivo que puede tomar uno de dos valores, como un interruptor 
de la luz), y el efecto del DI puede compararse a RES  IFF1. 
Cuando el 280 recibe uno de estos impulsos, comprueba el va- 
lor del señalizador IFF1. Si está puesto, el ordenador actúa 
como si le hubiera llegado uma instrucción RST 38 (o CALL 
38), con la dirección de retorno en la siguiente instrucción 
en secuencia. Si IFF1 se restaura no se toma esa acción y 
cualquier programa en código máquina se seguirá ejecutando 
normalmente, el señalizador IFF1 se debe poner a uno antes 
de intentar volver al BASIC. 


DJNZ Otra abreviatura. Esta significa Decrementar B y saltar 
si no es cero. Por lo tanto, si B es 7, DJNZ lo reduce a 6 y 
salta al nuevo destino. Si B es uno, DJNZ lo pondrá a cero y 
no saltará. En su lugar, ejecutará la siguiente instrucción. 
La forma de esta instrucción es DJNZ e, donde e es un octeto 
simple. Si B se decrementa a cero, se ignora e. Si no, e es- 
pecifica la longitud del salto. El desplazamiento se calcula 
como en una instrucción JR. 


El ¿Le suena? Es otra abreviatura. El significa Enable 
Interrupts (Habilitar interrupciones), y es la opuesta a DI. 
.Esta instrucción equivale a SET IFFi1. Ver DI para una expli- 
cación más completa. 


EQU Abreviatura de EQUate (igualar). No es una instrucción 
de código máquina, sino una directriz. Cada EQU debe tener 
una etiqueta, y la palabra EQU debe ir seguida de un número 
(en el rango 0000 a FFFF) o uma expresión como  JUAN+2. 
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Cuando el ensamblador encuentra la directriz, no toma ningu- 
na acción. y no se insertan octetos en el programa - por lo 
tanto, no tiene importancia en que lugar del programa se si- 
túan los EQU, aunque se suelen colocar al principio del pro- 
grama. Lo que hace es asignar un valor numérico (el valor 
dado) a su etiqueta. En otras palabras, si usted tiene ANA 
EQU 9000 y más adelante LD HL, (ANA), la instrucción se com- 
pila como LD HL, (9000). 


EX significa EXchange (Intercambio). Esta instrucción in- 
tercambia los valores contenidos en determinados pares de 
registros. Hay cinco instrucciones EX - estas son EX AF,AF?; 


EX DE,HL; EX (SP),HL; EX  (SP),IX; y EX (SP),IY. No alteran 
ningún señalizador, todo lo que hacen es intercambiar los 
valores - EX DE,HL reemplaza DE por el valor de HL y HL por 
el valor de DE. Las tres ultimas son las más interesantes - 
el valor de HL (o IX o IY) se intercambian con el valor de 
la parte superior de la pila, de forma que LD BC,0123/PUSH 
BC/LD HL,4567/EX (SP),HL deja en BC el valor 4567 y en HL 
0123. EX (SP),HL mo mueve el apuntador de la pila, como tam- 
poco lo hacen EX (SP),IX ni EX (SP), IY. 


EXX Puede imaginarse esta instrucción como EX BC,B*C* se- 
guida de EX DE,D*E* seguida por EX HL,H*L*. Básicamente, ca- 
da uno de los registros comunes (excepto A) se intercambia 
con su correspondiente registro alternativo. 


HALT Cuando llega una instrucción HALT, el control esperará 
en ese punto del programa hasta que ocurra la siguiente in- 
terrupción. Cuando sucede esto, se ejecuta la instrucción 
RST 38 (CALL 0038) y a la vuelta, el control continúa desde 
la primera instrucción después de HALT. Observe que el seña- 
lizador IFF1 debe estar puesto a uno para que se ejecute el 
HALT, en caso contrario no ocurrirá nunca una interrupción. 
En ese caso, el HALT esperará literalmente para siempre. No 
hay forma de interrumpirlo, excepto apagando la máquina. 


IM ¡¡¡PELIGRO!!! No use esta instrucción bajo ningún motivo. 


IN Tiene dos formas. La primera es IN A, (n) donde n es una 
constante numérica. Es equivalente a LET A=IN(256xA+n). La 
segunda forma es IN r,(C) donde r es un registro. Equivale a 
LET r=IN(256*xB+C). Los argumentos de In se refieren a un 
dispositivo hardware fuera del chip 280 - un número diferen- 
te para cada dispositivo. En la forma IN A, (n) no se modifi- 
can los señalizadores; sin embargo, en IN r,(C) si resultan 
afectados. 


INC ¡Que no cunda el pánico! volvemos a instrucciones sensi- 


bles que se pueden entender facilmente. INC r incrementa el 
valor del registro r en uno, pero sin alterar el señalizador 
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de acarreo. INC s incrementa el valor de s en uno y tampoco 
altera los señalizadores. 


IND IN con decremento. IND es equivalente a IN (HL), (C) se- 
guido por DEC HL seguido por DEC B. No altera el señalizador 
de acarreo, pero el de cero refleja el nuevo valor de B. 


INDR Es como IND pero se ejecuta la instrucción una y otra 
vez, parándose solamente cuando B a llegado a cero. 


INI Es como IND, pero HL se incrementa en lugar de  decre- 
mentarse. 


INIR Es como INDR, pero HL se incrementa en lugar de  decre- 
mentarse. 


JP Si puede comprender lo que hace GO TO 10, entonces pue- 
de comprender JP 7300. El destino es una dirección, no un 
número de línea, pero el principio es exactamente el mismo. 
JP es el equivalente en código máquina al GO TO del BASIC. 
Tenemos también saltos condicionales, por ejemplo JP NZ,7300 
significa IF no cero THEN salta a la dirección 7300 (En o- 
tras palabras, si el señalizador de cero no está puesto). 
Hay otra forma de JP que también tiene «su analogía con el 
BASIC - com destino variable. Si comprende lo que hace GO TO 
N comprenderá JP (HL). JP (HL) significa GO TO HL. En esta 
forma no puede usar condiciones: por ejemplo, JP NC, (HL) no 
está permitido. Solamente se puede usar uno de los tres pa- 
res de registros como destino variable - Estos son “HL, IX e 
IY. Son instrucciones bastante potentes, a pesar de todo - 
el contenido de HL puede ser el resultado de un cálculo, ge- 
nerado aleatoriamente. 


JR Es la misma instrucción que JP pero ligeramente menos 
potente, aunque un octeto más corta. Solo se pueden Usar 
cuatro de las ocho condiciones: Z, NZ, C y NC. Esto signifi- 
ca que es imposible usar (por ejemplo) JR PO. Tampoco está 
permitido decir JR (HL). JR no usa una dirección absoluta - 
la R significa Relativo. La instrucción se escribe como JR e 
(o JR Z,e) donde e es un solo octeto que especifica la lon- 
gitud del salto. JR 0 no hace nada, ya que salta cero octe- 
tos hacia adelante. JR FE es un bucle infinito, ya que el 
control saltará hacia atrás a la misma instrucción JR FE. El 
octeto de desplazamiento comienza a contar desde la instruc- 
ción que sigue a la JR e. Si el octeto está entre 00 y 7F, 
el salto se realiza hacia:radelante, si el octeto está entre 
80 y FF, el salto se realiza hacia atrás. 


LD Es la instrucción más usada en todo el código máquina. 


Todo lo que hace es transferir datos desde una posición a o- 
tra. Tiene muchas formas: la más simple puede ser LD r1,r2 - 
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que transfiere datos de un registro a otro. Otras formas son 
LD A, (BC), LD A, (DE) y LD A, (HL) - y sus inversas LD (BC),A, 
LD (DE),A y LD (HL),A. Recuerde que los paréntesis signifi- 
can el contenido de una dirección. Los registros IyR se 
pueden cargar, en conjunción con ÁA (pero solamente A) se 
pueden cargar los registros y pares de registros con cons- 
tantes numéricas, los pares de registros con el contenido de 
cualquier dirección y a la inversa, cualquier dirección con 
el contenido de un par de registros (tenga en cuenta que los 
pares de registros almacenan dos octetos, no uno, y que se 
transfieren desde la dirección apuntada y la dirección apun- 
tada más uno). También están permitidas LD A, (pa) y LD 
(pqd),A (donde pq representa una dirección) y el SP se puede 
cargar desde HL, IX, IY o (pa). ((pa) se puede cargar  —desde 
SP pero HL, IX e IY no). En otras palabras - Hay muchas co- 
sas que puede hacer y muchas que no. No puede decir LD 
HL,DE, por ejemplo (debe usar LD H,D y después LD L,E o vi- 
ceversa). Afortunadamente, ya que LD se usa muy  frecuente- 
mente, es sumamente fácil familiarizarse con sus muchas for- 
mas. 


LDD LoaD with Dcrement (Carga con decremento). Efectiva- 
mente, equivale a LD (DE), (HL) seguido por DEC HL,DEC DE y 
DEC BC pero en una sola instrucción. Los señalizadores de a- 
carreo y de cero permanecen sin alterar así como el de  sig- 
no, sin embargo el PV se restaura a cero solamente si BC 
llega a cero. Por lo tanto, JP PO saltará solamente si BC es 
cero después de la instrucción. 


LDDR Es como LDD pero la instrucción se ejecuta repetidamen- 
te hasta que BC llega a cero. 


LDI Es como LDD pero DE y HL se incrementan en lugar de de- 
crementarse. BC sigue decrementándose como en la anterior. 


LDIR Es como LDI, pero la instrucción se ejecuta repetida- 
mente hasta que BC llega a cero. 


NEG NEGate (Niega) el acumulador (o registro A). Funciona 
ejecutando la resta de 00 menos A y cambiando todos los  se- 
ñalizadores de acuerdo con el resultado. Así, S refleja el 
signo del resultado, Z se pondrá solamente si A es cero. P 
se pondrá solamente si A es 80. Co se pone siempre excepto 
cuando Á es cero. NEG equivale a CPL seguido de INC A (igno- 
rando los señalizadores). 


NOP. esta extraña pérdida de tiempo (cuyo nombre accidental- 
mente es la abreviatura de NO oPeración) tiene un propósito 
muy simple - perder tiempo. Tiene dos usos principales: (D 
como retraso, o (11) para eliminar código de máquina cuando 
se depura o edita. Supongo que el equivalente más cercano en 
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BASIC es una sentencia REM en blanco. 


OR En la forma OR r es casi la opuesta de AND r. Se cambia 
el valor del registro A de bit en bit. Si alguno de los bits 
dados es uno, permanece sin alterar, en caso contrario toma 
el valor del bit correspondiente del registro r. Si A con- 
tiene 00, entonces (ignorando los señalizadores) OR r es lo 
mismo que LD A,r. OR FF es efectivamente LD A,FF. Todos los 
señalizadores cambian como se espera, y el de acarreo se po- 
ne a cero. 


ORG ORG es una directriz que mo debe tener etiqueta aso- 
ciada. La palabra ORG debe ir seguida por un número en el 
rango de 0000 a FFFF. Significa que todo el código máquina 
desde ese punto debe ser escrito en la dirección dada. Por 
lo tanto, ORG 7000 seguido por LD A,01 significa que la ins- 
trucción LD A,01 reside en la dirección 7000. A menos que lo 
que se encuentre a continuación sea otro ORG, la siguiente 
instrucción estará situada en 7002 (ya que LD A,01 es una 
instrucción de dos octetos). 


OUT La instrucción OUT tiene dos formas. La primera es OUT 
(n),A - es equivalente a decir OUT (256x*A+n),A. La segunda 
forma es OUT (C),r y equivale a OUT (256xB+C),r. OUT manda 
datos fuera del chip Z80 y hacia el *hardware” que tiene al- 
rededor. No tiene ningún efecto sobre los señalizadores. 


OUTD OUT con Decremento. Equivale a OUT (C), (HL) seguido por 
DEC HL seguido por DEC B. El señalizador de acarreo no se 
altera, pero el de cero refleja el nuevo valor de B. 


OTDR Tiene una ligera diferencia en el deletreo, que no al- 
tera el hecho de que sea una instrucción OUT con decremento 
y repetición Equivale a OUTD repetida una y otra vez hasta 
que B llega a cero. 


OUTI es como OUTD, excepto que HL se incrementa en lugar de 
decrementarse. 


OTIR Es como OTDR, excepto que HL se incrementa en lugar de 
decrementarse. 


POP Toma dos octetos de datos de lo alto de la pila y los 
carga en un par de registros. Se pueden usar los pares de 
registros BC, DE, HL, IX e IY. Además, se puede usar la ins- 
trucción POP AF, formando un *seudo* par de registros con el 
acumulador y el registro de señalizadores. Específicamente, 
POP recoge el octeto más alto de la pila y lo pone en la 
parte baja del par de registros y el siguiente octeto en la 
parte alta. El apuntador de la pila SP se actualiza automá- 
ticamente. 
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PUSH es la instrucción opuesta a POP. Almacena el contenido 
de cualquier par de registros en lo alto de la pila. El va- 
lor de SP se actualiza para '"recordar' que se ha añadido un 
nuevo dato a la pila. Después de una instrucción PUSH, el SP 
siempre apunta a la parte baja del dato de lo alto de la pi- 
la. 


RES Con esta instrucción podemos alterar bits aislados de 
cualquier registro. RES es la abreviatura de REStaurar, que 
significa "cambiar a cero", por lo que RES es una instruc- 
ción que pone a cero cualquier bit requerido de un registro. 
Por ejemplo, para restaurar el bit 3 del registro D, lo úni- 
co que hay que hacer es RES 3,D. RES no tiene efecto sobre 
ningún señalizador. 


RET RET se usa para retornar desde una subrutina. Funciona 
haciendo POP de una dirección desde la pila y saltando a e- 
lla. Es posible alterar la dirección a la que retorna la 
subrutina alterando el valor de lo alto de la pila. Por e- 
jemplo, POP HL/INC HL/PUSH HL incrementará la dirección de 
retorno en uno. Usted puede, por ejemplo, almacenar un octe- 
to de datos inmediatamente después de la instrucción CALL, 
después hace POP HL/LD A, (HL) /INC HL/PUSH HL almacenará ese 
octeto en A mientras que se asegura que la subrutina retor- 
nará a la dirección siguiente a los datos. Otro truco es ha- 
cer PUSH de una dirección de retorno "artificial'" dentro de 
la pila y después hacer JP (o JR) a la subrutina en lugar de 
usar la instrucción CALL, entonces volverá a donde le haya- 
mos mandado. Si se necesita, se puede usar RET con condicio- 
nes. No altera a los señalizadores. 


RL Gira hacia la izquierda. La forma de esta instrucción 
es RL r. Cada bit del registro especificado se mueve una po- 
sición hacia la izquierda. El bit de más a la izquierda se 
introduce en el señalizador de acarreo, y el de más a la de- 
recha toma el valor previo del señalizador de acarreo. De a- 
hí lo de girar a la izquierda. Por ejemplo, si B contenía 
10010101 y el acarreo contenía cero, después de RL B, dejará 
B conteniendo 00101010 y el acarreo conteniendo uno. RL  al- 
tera todos los señalizadores. 


RLA Observe que no hay ningún espacio entre la L y la A. 
RLA es la forma más eficaz de hacer RL A. La instrucción es 
un octeto más corta y solo afecta al señalizador de acarreo. 


RLC Girar a la izquierda sin acarreo. RLC r es casi lo mis- 
mo que RL r ya que cada bit del registro en cuestión se mue- 
ve una posición ¡hacia la izquierda. Aquí, sin embargo, el 
bit de más a la izquierda pasa a ser el nuevo valor del  se- 
ñalizador de acarreo y al mismo tiempo el del bit de más a 
la derecha del registro. El valor que tenía el acarreo no 
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entra en el proceso. Se alteran todos los señalizadores. 


RLCA En un octeto, en lugar de en dos, RLCA es lo mismo que 
RLC A, pero más rápido. En esta operación solo cambia el se- 
ñalizador de acarreo. 


RLD Ahora el más fantástico. RLD mo se debe confundir con 
RL D, porque es uma instrucción completamente diferente, que 
funciona así: el dígito superior de (HL) se desplaza hacia 
la izquierda pasando a ser el dígito inferior de A; éste, a 
su vez, pasa a ser el dígito imferior de (HL),) y este último 
toma la posición del dígito superior de (HL). El dígito su- 
perior de A no varía. Esto es, si comenzamos con A conte- 
niendo 25 y (HL) conteniendo A3, RLD cambiará las cosas de 
forma que A=2A, (HL)=35. RLD, por razones que solo conocen 
las mentes de los diseñadores, es la abreviatura de  Rotate 
Left Decimal (giro decimal a la izquierda). 


RR Es como RL, excepto que los bits se mueven hacia la de- 
recha en lugar de hacia la izquierda. 


RRA Es como RLA, excepto que los bits se mueven hacia la 
derecha en lugar de hacia la izquierda. 


RRC— Es como RLC, excepto que los bits se mueven hacia la 
derecha en lugar de hacia la izquierda. 


RRCA Es como RLCA, excepto que los bits se mueven hacia la 
derecha en lugar de hacia la izquierda. 


RRD Es como RLD, excepto que los bits se mueven hacia la 
derecha en lugar de hacia la izquierda. 


RST Es igual que CALL excepto que la instrucción ocupa un 
solo octeto. Es menos potente por dos razones: (Il) mo puede 
usar condiciones (ej, RST 10 es legal, pero RST NZ2,10 no lo 
es); y (II) solo puede especificarse una de ocho direccio- 
nes. Estas son 00, 08, 10, 18, 20, 28, 30 y 38. Ya que el 
Amstrad comienza a ejecutar la ROM desde la dirección 0000 
en adelante, RST 00 es lo mismo que apagar y encender la má- 
quina. 


SBC  SBC, igual que ADC, se puede usar en dos formas. La 
primera es SBC A,r, que lo primero que hace es restar r de 
A, y después resta el bit de acarreo. De forma similar SBC 
HL,s restará de HL, s más el bit de acarreo. SBC A,A es una 
instrucción muy útil - deja el bit de acarreo sin alterar 
pero pone 00 en A si no hay acarreo, y FF si lo hay. 


SCF Set Carry Flag (Poner el señalizador de acarreo). Los 
demás señalizadores permanecen sin alterar. 
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SET Es la instrucción opuesta a RES. SET 4,H pondrá a uno 
el bit 4 del registro H. Se puede poner cualquier bit * de 
cualquier registro. $ 


SLA Shift Left Arithmetic (Desplazamiento aritmético hacia 
la izquierda). La forma de esta instrucción es SLA r. Es si- 
milar a la instrucción RL r, excepto que el bit de más a la 
derecha es reemplazado siempre por un cero. SLA r multiplica 
el registro r por dos. 


SRA Shift Right Arithmetic (Desplazamiento Aritmético hacia 
la derecha). Usando SRA r podemos desplazar hacia la derecha 
cualquier registro. La instrucción es similar a RR r, excep- 
to que el bit de más a la izquierda permanece sin cambiar. 
SRA r divide por dos el contenido del registro r, si el re- 
gistro contiene un valor en formato de complemento a dos. 


SRL Shift Right Logical (Desplazamiento lógico hacia la de- 
recha), es similar a RR, excepto que aquí, el bit de más a 
la izquierda queda reemplazado por cero. SRL r divide el re- 
gistro por dos, si el registro contiene un valor en formato 
de complemento a dos. 


SUB Se escribe SUB r (algunas veces se escribe también como 
SUB A,r, solamente para confundir). Esta instrucción resta r 
del registro A. Tenga en cuenta que, a diferencia de ADD, no 
hay instrucción correspondiente SUB HL,s. Si quiere restar 
de HL, debe restaurar primero el bit de acarreo (por medio 
de la instrucción AND A) y después usar SBC HL,s. 


XOR XOR cambia el valor del registro A bit a bit. Si un bit 
dado de A es idéntico que el correspondiente bit de r, ese 
bit de A es restaurado a cero, en caso contrario ese bit del 
registro A se pondrá a uno. XOR altera todos los señalizado- 
res y, en particular, el de acarreo se restaura siempre. Ob- 
serve que XOR A es lo mismo que LD A,00 (ignorando los seña- 
lizadores) y que XOR FF es lo mismo que CPL (ignorando  tam- 
bién los señalizadores). 
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CAPITULO NUEVE 
Operadores Lógicos y 
Manipulación de Bits 


En este capítulo trataremos de un grupo de instrucciones 
que aparecen bajo el nombre genérico de operadores lógicos 
(AND, OR, XOR), y de otras que sirven para la manipulación 
de bits dentro de un octeto (SET, RES, BIT, Giros y Despla- 
zamientos). 


Antes de sequir adelante debemos dejar claro una cosa, de 
ahora en adelante se hablará de los bits dentro de un octeto 
por el número correspondiente al lugar que ocupan dentro de 
él. Este order es como sigue: 


Artea tapo 


Veamos primero los operadores lógicos. Se conocen también 
como Operaciones Booleanas. Cada operación se describe acom- 
pañada por su Tabla de la Verdad. Esta tabla nos muestra el 
resultado de las operaciones lógicas. 


La tabla de la verdad de la instrucción AND es así: 


A B A AND B 
Q 0 0 
1 0 0 
0 1 0 
1 1 1 


Después de ver esta tabla, hay unas cuantas cosas que  de- 
ben ser explicadas. AND funciona con dos valores. El primero 
debe estar en el registro A, mientras que el otro debe ser 
un número de 8 bits, n o cualquier registro simple (incluido 
el A) o el valor que hay en la dirección apuntada por IX, IY 
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o HL. Nosotros hemos usado el registro B en el ejemplo ante- 
rior. 


Debido a que A debe ser siempre el primero de los dos va- 
lores, el código de operación de AND A,C se escribe como AND 
C, asumiendo que A viene antes de la C. 


La tabla de la verdad nos muestra el resultado de un AND 
de los bits de los dos registros. Esta tabla se aplica a los 
ocho bits de los registros. Si el bit 0 de A o el bit 0 de B 
son cero, el resultado será un bit 0 a cero. Si ambos bits 
son cero, el resultado será también cero, mientras que si 
ambos bits tienen el valor 1, el resultado del AND será 1. 


El resultado de la operación se almacenará en el registro 
A. El valor del registro B (o del registro que sa haya usa- 
do) permanece sin alterar. Es muy importante recordar esto. 
Aquí tenemos una pequeña rutina que nos muestra la instruc- 
ción AND en acción: 


3E 66 LA A, 102 (102 en binario es 01100110) 
06 2B LD B,43 (43 en binario es 00101011) 
AQ AND B 


32 28 A0 LD (41000) ,A 


La rutina que ejecuta AND A,B (43 AND 102) da el siguiente 
resultado: 


01100110 
00101011 
00100010 


Como resultado del AND, solo se ponen a umo los bits 1 y 
5. El valor del registro A se introduce en la posición 41000 
de memoria. Para comprobar que este valor es en efecto el 
00100010 (de valor decimal 34), teclee PRINT PEEK (41000). 


La tabla de la verdad de la instrucción OR es: 
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B A OR B 
0 0 0 
1 0 1 
0 1 1 
1 1 1 


OR funcioma con los mismos valores que AND, estos son: 


AND r (donde r es un registro de 8 bits) 
AND n (donde n es un número de 8 bits) 
AND (HL) (el contenido de la memoria en HL) 
AND (1IX+d) (el contenido de la posición de 
AND (IY+d) memoria IX o IY + desplazamiento) 


La tabla de la verdad de la instrucción XOR es: 


A B A XOR B 
0 0 0 
1 0 1 
0 1 1 
1 1 0 


Este operador lógico funciona con los mismos registros y 
modos de direccionamiento que OR y AND. XOR es la abreviatu- 
ra de Exclusive Oring (OR exclusivo) y es un procedimiento 
en el cual se asigna un 1 al bit del resultado si los bits 
correspondientes de los dos operandos son distintos. Si los 
dos bits son 0 o 1, el resultado en el registro A será 0. 


Ya hemos visto los operadores lógicos. Ahora los veremos 
en acción. Son capaces de cambiar facilmente un bit especí- 
fico, y es lo que usa la próxima rutina. La podemos llamar 
"creador de mayúsculas". La rutina toma una cadena y con-: 
vierte el primer carácter en mayúscula. 


¿Cómo lo hace? Las letras mayúsculas en ASCII comienzan 32 


códigos por debajo de las minúsculas. El programa toma el 
código del primer carácter y, usando el registro A para con- 
tener el valor 223, y la instrucción AND cancela el sexto 


bit haciéndolo igual a cero, es decir restando 32 del valor 


del código. El código del carácter se devuelve al lugar en 
que estaba. Veámoslo en binario. 


A=11011111 

B=01177777 (no sabemos el valor exacto de B, todo 
lo que sabemos es que va de 97 en 
adelante, pero el bit 6 está puesto 


siempre, que equivale a 32 decimal) 


La operación AND toma los bits que son igual a 1 y da como 
resultado un bit a 1. Cualquiera de los bits que sean dis- 
tintos darán como resultado un bit a cero. Poniendo a cero 
el sexto bit del registro A garantizamos que se resta 32 del 
valor del código, obteniendo así la letra correspondiente 
pero convertida en mayúscula. 


Ensamblador Decimal 
LD L, (IX+0) DD 6E£ 00 
LD H, (1X+1) FD 6E 01 
INC HL E 23 
LD C, (HL) 4E 
LD A.223 3E DF 
“AND C A1 
LD (MHOD,A 77 
RET c9 

SET y RES 


SET y RES nos permiten alterar el valor de bits determina- 
dos dentro de un registro de 8 bits. El formato de SET y RES 
es: 


SET/RES n,r 


Aquí, r es cualquier registro de 8 bits o una posición de 
memoria de 8 bits, apuntada por los registros HL, IX o IY. N 
es un número entre 0 y 7 e indica el bit sobre el que se va 
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a ejecutar la instrucción. (SET hace que el bit se ponga a 1 
mientras que RESET hace que se ponga a cero). 


LD B,3 pone a 1 los bits primero y segundo, y si 
añadimos la instrucción... 

SET 2,B el tercer bit se pondrá a 1 (valor 4) y el 
valor del registro B será ahora de 7 decimal, 


en binario 00000111. 


El punto más importante a tener en cuenta, no solo con las 
instrucciones SET y RES sino con todas las que acabamos de 
ver, es que los bits de un octeto se numeran del 0 al 7, de 
derecha a izquierda. Por lo tanto, si hablamos del tercer 
bit, este será el bit 2 (como en el ejemplo anterior). 
Recuerde esto, ya que muchos libros y revistas no lo acla- 
ran, y causa mucha confusión. 


Si tenemos estas dos instrucciones: 


LD Cc,7 
RES 0,C 


El valor del registro C pasará a ser 6, debido a que el 
primer bit (bit 0) se ha puesto a cero, restando uno al  va- 
lor del registro C. 


Se puede usar la instrucción BIT para saber el valor de un 
bit. Se debe especificar el número del bit y el registro, de 
la misma forma que con SET y RES. La respuesta no se pone en 
un registro, sino en uno de los señalizadores del registro F 
El señalizador Z o de Cero se pone a 1 si el bit que se está 
comprobando es un cero. Si el bit es 1, el señalizador de 
Cero se pone a cero (lo contrario a lo que podr ía parecer en 
un principio). 


Girar y Desplazar 


Vayamos a ver ahora las instrucciones de giro y desplaza- 
miento. Los principios que rigen estas operaciones no son 
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difíciles de entender, pero si mo se explican bien pueden 
quedar algo confusas. Hemos requerido la ayuda de unos dia- 
gramas para explicarlo. Veamos el primer diagrama, que co- 
rresponde a un giro: 


Giro hacia la izquierda (RLC) 


(1) Comenzamos con 





* Indica el bit que sale 


Observe que esto es un RLC giro hacia la izquierda sin a- 
carreo. 


El giro hacia la derecha (RRC) es justo lo opuesto. 


El giro es una operación que involucra un ciclo completo, 
y es en lo que se diferencia del desplazamiento (SHIFT), co- 
mo veremos enseguida. 


Los comandos que se han usado en este giro son RLC y RRC. 
Significan Rotate Left mithout Carry (Rotar hacia la  ¡iz- 
quierda sin acarreo) y Rotate Rigth without Carry (Rotar ha- 
cia la derecha sin acarreo). En el diagrama se puede ver lo 
que hacen. 


Hay otros dos tipos de giro que se conocen como RL y RR 
(Rotate Left/Right mith Carry (girar hacia la ¡izquierda/de- 


e 


recha con acarreo)). Lo que hacen es tomar el bit del extre- 
mo y ponerlo dentro del bit de acarreo y tomar el valor que 
había en el bit de acarreo y ponerlo en el otro extremo del 
registro. El segundo diagrama es así: 


Giro hacia la izquierda con Acarreo (RL) 


Señalizador 
de acarreo 





Antiguo Valor del Acarreo 
> 





* Indica el bit a que sale 

Estas instrucciones de rotación trabajan con registros de 
8 bits y valores dados por IX, IY y HL. 

Los desplazamientos son similares a los giros, como se ve 
en este tercer diagrama. 


Desplazamiento aritmético hacia la izquierda í(SLA) 


(1) Comenzamos con 
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(2) Operación de Desplazamiento 
» 

1 < 1 1 1 < 
(3) Resultado final ; 


DBAB 


* Indica el bit que sale 


Esto es una instrucción Shift Left Arithmetic (SLA) (Des- 
plazamiento aritmético hacia la izquierda. 


Hay tres tipos de instrucciones de desplazamiento: SLA, 
SRA y SRL. SLA significa Shift Left Arithmetic (Desplaza- 
miento aritmético hacia la izquierda) y es la operación que 
se ha desarrollado en el diagrama. SRL significa Shift Right 
Logical (Desplazamiento lógico hacia la derecha) y funciona 
de forma similar a SLA, excepto que se desplaza hacia la de- 
recha, el bit 7 se pone a cero y el bit 0 (el de más a la 
derecha) se introduce en el bit de acarreo, mientras que el 
resto de los bits se desplazan un bit hacia abajo. Por lo 
tanto una instrucción SRL” con 11100100 dará como resultado 
01110010. 


La última instrucción de desplazamiento es SRA, que signi- 
fica Shif Right Arithmetic (Desplazamiento aritmético hacia 
la derecha). Es similar a SRL, excepto que desplaza todos 
los bits excepto el 7, que se mantiene con su valor (cuando 
se usa con enteros con signo entre -127 y 127). Todas las 
instrucciones de desplazamiento funcionan con los mismos re- 
gistros, como las instrucciones de rotación. Lo que puede 
que no sepa usted, aunque resulta lógico, es que SLA real- 
mente multiplica el número por dos y SRL divide el número 
por 2. Por lo tanto, para multiplicar un número por 8, basta 
con hacer SLA tres veces. 
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CAPTPFUEO DIEZ 
Pantalla y Rutinas de la ROM 


La imagen de la pantalla del Amstrad ocupa 16K (16384  —oc- 
tetos) en todos los modos. No se puede hacer nada por redu- 
cir este espacio. (Puede que usted quiera acceder a la pan- 
talla directamente en alguno de sus programas en código má- 
quina, en lugar de usar las rutinas disponibles en la ROM. 
Esto tiene la ventaja de hacer que los programas se ejecuten 
más rápidamente, en la mayoría de los casos. Por desgracia, 
el asociar una dirección de memoria con uma posición de la 
pantalla del Amstrad puede ser una tarea ¡imposible en un 
principio, debido a la forma en que está almacenada en memo- 
ria. También hay que tener en cuenta que un punto de la pan- 
talla no se relaciona necesariamente con un bit concreto 


dentro de un octeto determinado, sino que depende del modo 
de pantalla que esté usando. En MODE 2 hay solamente dos co- 
lores disponibles , ya que cada bit puede estar en uno de 


dos estados, 1 o 0). 


Vamos a ver cómo se almacena la pantalla, sabiendo que es- 
tá almacenada desde la posición 8£8C000 hasta 8£FFFF. Este será 
el caso normal a menos que un programa en código máquina la 
haya movido a algún otro lugar. Vamos a asumir que el  des- 
plazamiento es igual a cero. Este no es el caso si hacemos 
*scroll* de la pantalla. 


Doscientos de Alto 


La pantalla tiene siempre 200 líneas de puntos de altura 
por 80 octetos de ancho. Cuando usted pone el modo de panta- 
lla, le está diciendo al ordenador cómo usar estos 80 octe- 
tos; si quiere un número mayor de puntos a lo ancho de la 
pantalla o si quiere menos puntos, usando los bits extras 
para almacenar rangos más amplios de colores. 


La pantalla se almacena como ocho bloques de ZK contenien- 
do cada bloque la información de una de las ocho líneas de 
altura de cada carácter. Por lo tanto, los primeros 80 octe- 
tos del bloque uno contienen la línea de puntos superior, 
que es la línea 1 de la primera fila de caracteres, el 
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segundo bloque de 80 octetos contiene la línea 1 de la se- 
gunda fila de caracteres, y así sucesivamente. 


Esto significa que la línea 1 de la última fila de carac- 
teres (fila 259) se almacena en el primer bloque desde el oc- 
teto 1921 (24x80+1) hasta el 2000 (625*80). Sin embargo, ca- 
da bloque es de 2K (2048 octetos) de longitud y por lo tanto 
no se usan los últimos 48 octetos de cada bloque. De la mis- 
ma forma, el segundo bloque almacena información de la línea 
2 de cada fila de caracteres y el bloque ocho almacena in- 
formación de la línea 8 de cada fila de caracteres. 


Si está un poco confundido, teclee el siguiente programa 
BASIC que hace POKE de cada octeto desde 8£8C000 a £FFFF con 
2535. Esto significa que también altera los octetos no  usa- 
dos, pero al ordenador no le importa. Observe el orden en el 
que aparecen las líneas en la pantalla. 


10 MODE 1 

20 FOR n=8C000 TO £FFFF 
30 POKE n,2595 

40 NEXT 


Cambie el número del MODE de la línea 10 y ejecute el pro- 
grama de nuevo. Observe que tarda el mismo tiempo en relle- 
nar la pantalla en todos los modos y que aparecen distintos 
colores en cada modo. 


Hay muchas rutinas de la ROM que se pueden usar para tare- 
as como imprimir o inicializar. (Todas ellas están explica- 
das en el libro de la ROM suministrado con el Amstrad). 


Aquí tenemos las direcciones y los nombres de algunas de 
las rutinas más útiles para un principiante en la programa- 
ción en código máquina. Tenga en cuenta que todas las direc- 
ciones vienen dadas en hexadecimal. 


Dirección de CALL Descripción 
BB00 Restaura la memoria intermedia del teclado. 
BB18 Espera a que se pulse una tecla. 
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BB24 


BBS5A 


BBEA 


BBFO6 


BC38 


BC3E 


BC68 


BCAA 


BCB6 


BCD1 


BD31 


BB39 


BB21 


Obtiene el valor de la palanca de juego 
cuyos valores son: 


O=arriba 1=abajo 
Z2=izquierda 3=derecha 
4=fuegol S=fuego 2 
6tsin uso 7=restaurar 


Imprime un carácter en la pantalla. 


dibuja un punto con DE=coordenada X y 
HL=coordenada Y 


Dibuja una línea desde la posición actual 
del cursor hasta X, Y (almacenadas en los 


mismos registros que la anterior). 


Pone el color del bprde con los colores 
almacenados en los registros B y C. 


Pone los periodos de parpadeo de acuerdo con 
los valores almacenados en el registro HL. 


Fija la velocidad de grabación del casette. 
Añade sonido a la cola de sonido. 

Para el sonido. 

Introduce un RSX en el sistema. 


Manda un carácter a la puerta Centronics 
(normalmente para la impresora). 


Pone la repetición de tecla o la quita. 


Obtiene los estados de Bloqueo Mayúsculas y. 
Bloqueo *Shift?. 
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Paquete de Rutinas en 
Código Máquina 


Uno - Leer un Carácter 

Dos - Girar hacia la Izquierda 

Tres - Girar hacia la Derecha 

Cuatro - Letras Gigantes 

Cinco - Impresión Masiva 

Seis - Relleno de la Pantalla 

Siete - LOAD/SAVE Sin Cabecera 

Ocho - Música por Interrupciones 

Nueve - Monitor de Código Máquina 

Diez - Movimiento de Bloques de Pantalla 
Once - Acordes RSX 

Doce - Compresores de Pantalla 

Trece - DEEK y DOKE 

Catorce - Paquete de Escritura de Juegos 


UNO - Leer un Carácter 


Si se preguntara a varios programadores BASIC cuál sería 
el comando que les gustaría tener en el Amstrad, no nos sor- 
prender ía que la mayoría de ellos pidieran un comando 
SCREEN$. Para los mo iniciados,SCREEN$ y los comandos simi- 
lares le dicen al programador qué carácter hay en una posi- 
ción determinada de la pantalla. Por lo que, si el programa- 
dor quiere escribir una rutina que tenga que comprobar si en 
el centro de la pantalla hay un asterisco (*), puede escri- 
bir una línea como esta: 


IF SCREEN$(20,12)=42 THEN 


Los dos números que aparecen entre los paréntesis son las 
coordenadas de la posición del cursor y el 42 es el código 
ASCII del asterisco. 


Desgraciadamente, el Amstrad no tiene este comando BASIC y 
esto hace la vida un poco más difícil a los programadores 
que desean escribir juegos con gráficos en movimiento. La 
siguiente rutina resuelve este problema y funciona en  Cual- 
quiera de los tres modos de pantalla del Amstrad. 


Teclee este programa y ejecútelo: 


1 LEER UN CARACTER 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40019 

30 READ a$: POKE n, VAL ("'£'+a$) 

40 NEXT 

50 DATA DD,6E,02,DD,66,04,CD,75,BB,CD 

60 DATA 60,BB,DD,6E,00,DD,66,01,77,C9 


Cuando quiera comprobar una posición específica de memo- 
ria, use el siguiente comando: 
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CHAR%=0: CALL 40000,X, Y, ECHARZ 


Aquí, X e Y son las coordenadas de la posición que se 
quiere comprobar (en el mismo formato que el comando BASIC 
LOCATE). CHAR%X es una variable especialmente creada que, una 
vez que se ha ejecutado la CALL, contendrá el código ASCII 
del carácter situado en la posición especificada. Si no se 
define CHAR% de antemano, ocurrirá un error Improper 
Argument . 


La variable CHAR debe ser un entero y se puede definir se- 
guida por el signo del porcentaje (%), como hemos hecho an- 
tes, o precediéndolo por un comando DEF INT C. 


Esta es una de las rutinas más cortas de este libro, y lo 
es gracias a la ROM del Amstrad. La ROM contiene una rutina 
de "lectura de caracteres" a la que puede accederse desde el 
BASIC. Nuestro programa utiliza esta rutina y pasa los pará- 
metros correctos a, y desde esta rutina de la ROM. 


Este es el listado de la rutina en ensamblador: 


0001 ; LEE UN CARACTER 

0002 ; 
9040 0010 ORG 40000 
BB75 0020 CURSOR DEFL 0BB75H 
BB60 0030 RDCHAR DEFL 0BB60H 
9C40 DD6E0O2 0040 LD L, (1X+2) 
9C43 DD6604 0050 LD H, (1X+4) 
9C46 CD735BB 0060 CALL CURSOR 
9C49 CD60BB 0070 CALL RDCHAR 
9C4C DD6GE0O 0080 LD L, (1X+0) 
9C4F DD6601 0090 LD H, (1X+1) 
90532 77 0100 LD (HO) ,A 
9C533 C9 0110 RET 

0120 END 
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DOS - Girar hacia la Izquierda 


Esta ruina gira una cadena de caracteres 90 grados hacia 
la izquierda, poniéndolos de lado hacia arriba de la panta- 
lla. 


1 GIRAR A LA IZQUIERDA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40091 

30 READ a$: POKE n, VAL (''£'+ a$) 

40 NEXT 

50 DATA DD,6E,00,DD,66,01,7£,B7,C8,23 
60 DATA 5E,23,56,DD,6E,02,DD,66, 04,47 
70 DATA C5,ES,CD,75,BB,1A,CD,64,9C,13 
80 DATA E1,2D,C1,10,F1,C9,DS,CD,AS,BB 
90 DATA EB,CD,AE,BB,06,07,23,10,FD,FS 
100 DATA CD,06,B9,0E£,08,1A,13,D5,E5,16 
110 DATA 80,1E,80,06,08,82,CB,16,2B,B3 
120 DATA CB,3A,CB,2B,CB,F3,10,F3,E1,0D1 
130 DATA 0D,20,E4,CD,09,B9,F1,CD,5A,BB 
140 DATA D1,C9 


El formato de este comando es: 
CALL 40000,X,Y,CAS 


X e Y son las coordenadas donde quiere que comience a es- 
cribirse y A$ contiene la cadena que se va a escribir, y de- 
be ir precedida por el carácter *e”*. Esto nos permite pasar 
una cadena de caracteres desde -el BASIC al código máquina. 
A$ se usa aquí para definir cualquier variable de cadena pe- 
ro no una cadena en sí misma (sin embargo X puede ser tanto 
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una variable numérica como un valor). X$ y pp$ funcionarán, 
pero ''HOLA" mo lo hará. En otras palabras, siempre se debe 
especificar una variable de cadena. 


Las coordenadas X e Y son las mismas que se usan en el co- 
mando LOCATE del BASIC; Y puede ser cualquier valor de líne- 
a, entre 1 y 23, y X puede ser cualquier número de columna 
entre 1 y 20 en modo 0, 1 y 40 en modo 1, y 1 y 80 en modo 
2. 


La rutina toma el primer carácter de la cadena, la pone de 
lado y coloca el carácter dentro del primer UDG (Carácter 
Definido por el Usuario) disponible (en el cargador de BASIC 
lo definimos como el carácter 240). Después escribe el ca- 
rácter en la pantalla. Esto hace que mo podamos usar el pri- 
mer UDG si tenemos esta rutima incorporada en el programa. 
Para salvar este inconveniente, si lo necesitamos, se puede 
definir un SYMBOL AFTER más bajo. 


0001 ; GIRAR A LA IZQUIERDA 
0002 ; 
9040 0010 ORG 40000 
BB75 0020 CURSOR DEFL 0BB75H 
9C40 DD6GE0O 0030 LD L, (1X+0) 
9C43 DD6601 0040 LD H, (1X+1) 
9046 7E 0050 LD A, (HL) 
9C47 B7 0060 OR A 
9C48 C8 0070 RET Z 
9C49 23 0080 INC HL 
9C4A SE 0090 LD E, (HL) 
9C4B 23 0100 INC HL 
9C4C 56 0110 LD D, (HL) 
9C4D DD6E02 0120 LD L, (1X+2) 
9C50 DD6604 0130 LD H, (1X+4) 
9C53 47 0140 LD B,A 
9054 CS 0150 NXTCHR PUSH BC 
9C535S ES 0160 PUSH HL 
9C56 CD75BB 0170 CALL CURSOR 
9C59 1A 0180 LD A, (DE) 
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OCSA 
9C5D 
9C5E 
9CsF 
9c60 
9c61 

9063 
9C64 
BBAS 
BBAE 
B906 
8909 
BBSA 
9c65 
9c68 
9C69 
9cec 
9C6E 
9c6F 
9C71 

9072 
9075 
9077 
9C78 
9079 
9C7A 
9C7B 
9C7D 
9C7F 
9c81 

9082 
9C84 
9c85 
9c86 


CD649C 
13 

El 

2D 

Cc1 
10F1 
Cc9 

DS 


CDASBB 
EB 
CDAEBB 
0607 
23 
10FD 
FS 
CD06B9 
0£08 
14 

13 

DS 

ES 
1680 
1€£80 
0608 
82 
cB16 
28 

B3 
CB3A 


0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 


ROTCHR 
MATRIX 
TABLE 

ROMENA 
ROMDIS 
TXTOUT 


ADD7 


NXTBYT 


NXTBIT 


CALL 
INC 
POP 
DEC 
POP 
DJNZ 
RET 
PUSH 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
CALL 
EX 
CALL 
LD 
INC 
DJNZ 
PUSH 
CALL 
LD 
LA 
INC 
PUSH 
PUSH 
LD 
LD 
LD 
ADD 
RL 
DEC 
OR 
SRL 


ROTCHR 
DE 


NXTCHR 


DE 
O0BBASH 
OBBAEH 
08906H 
28909H 
VBBSAH 
MATRIX 
DE, HL 
TABLE 
B,7 

HL 
ADD7 
AF 
ROMENA 
c,8 

A, (DE) 
DE 

DE 


BR 


9C88 
9C8A 
9c8c 
9C8E 
9C8F 
9090 
9C91 
9093 
9C96 
9C97 
9CIA 
9C9B 
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CcB2B 
CBF3 
10F3 
El 

D1 

0D 
20E4 
CD09B9 
F1 
CDS5ABB 
D1 

c9 


0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 


SRA E 


SET 6,E 
DJNZ NXTBIT 
POP HL 

POP. DE 

DEC C 


JR NZ, NXTBYT 
CALL ROMDIS 


POP AF 
CALL TXTOUT 
POP DE 

RET 

END 


TRES -= Girar hacia la Derecha 


Esta rutina viene a ser, más o menos, la opuesta a la an- 
terior. Con ésta, la cadena se imprimirá en la pantalla ha- 
cia abajo, a 90 grados de la posición horizontal y a 180 
grados de la posición de la rutina Girar hacia la Izquierda. 


de? GIRAR A LA DERECHA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40086 

30 READ a$: POKE n,VAL ("'£''+a$) 

40 NEXT 

50 DATA DD,6E,00,DD,66,01,7E,B7,C8,23 
60 DATA SE, 23,56,DD,6E,02,DD,66, 04,47 
70 DATA CS5,ES,CD,75,BB,1A,CD,64,9C,13 
80 DATA E1,2C,C1,10,F1,C9,DS,CD,A5,BB 
90 DATA EB,CD, AE, BB,FS,CD,06,B9,0E, 08 
100 DATA 1A,13,D5,E5,16,80,1E,80,06,08 
110 DATA 82,C8B,1E,23,B3,CB,3A,C8B,2B,CB 
120 DATA F3,10,F3,E1,D1,0D,20,E4,CD,09 
130 DATA B9,F1,CD,5A,BB,D1,C9 


El formato de la llamada es el mismo que en la anterior: 
CALL 40000,X,Y,0AS 


Aquí X e Y son las coordenadas de comienzo de la cadena, y 
A$ es la cadena que queremos escribir girada hacia abajo en 
la pantalla. 


Las dos rutina tienen mucho en común, como se puede ver en 


el listado del ensamblaje. Afecta a los UDGs de la misma 
forma que la rutina Girar hacia la Izquierda. 
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9040 
BB75 
9040 
9C43 
9C46 
9047 
9048 
9C49 
9C4A 
9C4B 
9c4cC 
9C4D 
9Cc50 
9C53 
9054 
9035 
9C56 
9C39 
9CSA 
9C53D 
9CSE 
9CsoF 
9C60 
9C61 
9C63 
9C64 
BB45 
BBAE 
B906 
B909 
BBSA 
9C65 


80 


DD6E00 
DD6601 
7E 

B7 

c8 

23 

SE 

23 

56 
DD6E02 
DD6604 
47 

[e] 

ES 
CD75BB 
1A 
CD649C 
13 

El 

2D 

c1 
10F1 
co 

DS 


CDASBB 


0001 
0002 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 


5 GIRAR A LA DERECHA 


3 


CURSOR 


NXTCHR 


ROTCHR 
MATRIX 
TABLE 

ROMENA 
ROMDIS 
TXTOUT 


ORG 
DEFL 
LD 
LD 
LD 
OR ' 
RET 
INC 
LD 
INC 
LD 
LD 
LD 
LD 
PUSH 
PUSH 
CALL 
LD 
CALL 
INC 
POP 
DEC 
POP 
DJNZ 
RET 
PUSH 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
CALL 


40000 
0BB75H 
L, (1X+0) 
H, (1X+1) 
A, (HL) 

A 

Ls 

HL 

E, (HL) 
HL 

D, (HL) 
L, (1X+2) 
H, (1X+4) 
B,A 

BC 

HL 
CURSOR 
A, (DE) 
ROTCHR 
DE 


NXTCHR 


DE 

OBBASH 
OBBAEH 
0B906H 
0B909H 
0BBSAH 
MATRIX 


9068 
9069 
9c6c 
9C6D 
9C70 
9C72 
9C73 
9C74 
9C73 
9C76 
9078 
9CT7A 
9c7c 
9C7D 
9c7F 
9C80 
9C81 
9083 
9085 
9087 
9089 
9C8A 
9C8B 
9c8c 
9C8E 
9c31 
9C92 
9cC95 
9C96 


EB 
CDAEBB 
FS 
CD06B9 
0E08 
1A 


7 
pi 


DS 


20E4 
CDO9B9 
F1 
CDSABB 
D1 

c9 


0330 
0340 
0350 
0360 
0370 
0380 
0390 
2400 
0410 
2420 
0430 
0440 
0450 
0460 
0470 
2480 
0490 
2500 
0510 
0520 
0530 
0540 
2550 
0560 
0570 
0580 
2590 
2600 
0610 
2620 


NXTBYT 


NXTBIT 


EX 
CALL 
PUSH 
CALL 
LD 
LA 
INC 
PUSH 
PUSH 
LD 
LD 
LD 
ADD 
RP 
INC 
OR 
SRL 
SRA 
SET 
DJNZ 
POP 
POP 
DEC 
JR 
CALL 
POP 
CALL 
POP 
RET 
END 


DE, HL 
TABLE 
AF 
ROMENA 
c,18 

A, (DE) 
DE 

DE 


6,E 
NXTBIT 
HT 


NZ,) NXTEBYT 
ROMDIS 

AF 

TXTOUT 

DE 
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CUATRO - Letras Giga 


Con esta rutina podemos disponer de 


tamañ 


o. Ti 


ene muchos usos, como poner tí 


oa las pantallas. 


El cargador BASIC se teclea como en 1 
se salva en cinta o disco y luego se ejecuta. 


res, 


A 


LETRAS GIGANTES 


ntes 


caracteres de doble 
tulos a los listados 


as rutinas anterio- 


10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


FOR n 
READ 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


=40000 TO 40159 
a$: POKE n, VAL ('8£'' + as) 


CD,93,BB,F5S,DD,6E, 04,DD,66, 05 


46,23,5£,23,56,DD,6E£,06,DD,66 


08,C5,D5,E5,1A,47,CD, 06, B9, 78 
CD, 9D, 9C, 47,CD, 09,B9,E1,5D,54 
CD, 75,BB,DD,7E,02,CD,90,8BB,78 
CD,5A,BB,3C,CD,5A,BB,6B, 62, 2C 
CD,75,BB,DD,7E,00,CD,90,BB,78 
3C,3C,CD,5A,BB,3C,CD,5A,BB,6B 
62,24,24,D1,13,C1,10,BD,F1,CD 
90,BB,C9,CD, AS, BB, EB,CD, AE,BB 
FS,0E£,02,06,04,C5,1A,0F,0F,0F 
0F,06,04,1F,CB,1E,CB,2E,10,F9 
7E£,23,77,06,07,23,10,FD,1A,06 
04,1F,CB,1E,CB,2E,10,F9,7E,23 
77,06,07,2B,10,FD,13,C1,10,0D3 
06,08,23,10,FD,0D,20,C9,F1,C9 
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Para usar esta rutina, debe teclear el siguiente comando: 


CALL 40000,X,Y,CA$,P1,P2 


Por el momento debe ser capaz de usar los dos o tres pri- 
meros parámetros por usted mismo. En caso de que no sepa u- 
sarla, o esté algo confuso, le diré como hacerlo. X e Y son 
las coordenadas de la parte superior izquierda de la posi- 
ción de la pantalla desde la que se van a comenzar a escri- 
bir los caracteres y A$ es la variable de cadena que contie- 
ne el texto que se va a imprimir. Los nombres de variables 
que se usan en el ejemplo no tienen por que ser las que use 
usted en su programa; se puede usar cualquier variable: numé- 
rica o de cadena y, para las coordenadas, se pueden utilizar 
números enteros directamente. 


Este es también el caso de los dos parámetros finales, a 
los que hemos llamado P1 y PZ. Pueden ser tanto variables 
numéricas como números, y lo que hacen es definir el color 
de los caracteres. P1 controla la mitad superior de cada ca- 
rácter y P2 la inferior. Estas variables pueden contener 
cualquier número, ya que, si el parámetro se sale del rango 
de los valores usuales (que puede ver en la tabla de abajo), 
la rutina los enmascarará para que se acoplen a los valores 
normales del rango de colores. 


Valores Normales Modo Rango 
0 0-15 
1 0-3 
2 0-1 


La rutina vuelve a poner los colores que tenía antes de 
ser llamada. Esta rutina utiliza los cuatro primeros carac- 
teres UDG para crear los caracteres de doble tamaño. Por lo 
tanto, asegúrese de que tiene disponibles por lo menos  cua- 
tro UDGs. (Si no está usando ningún UDG, deje en su programa 
el comando SYMBOL AFTER 240, que hay en el cargador BASIC). 


0001 ; LETRAS GIGANTES 
0002 ; 
9040 0010 ORG 40000 
B906 0020 ROMENA DEFL 0B906H 
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B909 
BBAS 
BBAE 
BB75 
BB93 
BB90 
BB5A 
9040 
9043 
9044 
9C47 
9C4A 
9C4B 
9C4C 
9C4D 
9C4E 
9C4F 
9C52 
90395 
9056 
9037 
9038 
9059 
9C5A 
9C5D 
9CSE 
9C61 

9C6Z 
9C65 
9C66 
9C67 
9068 
9C6B 
9C6E 


CD93BB 
FS 
DD6E04 
DD6605 
46 
23 
SE 
23 
56 
DD6E06 
DD6608 
Cs 
DS 
ES 
1A 
47 
CcD06B9 
78 
CD9D9IC 
47 
CD09BO 
El 
5D 
54 
CD75BB 
DD7E02 
CD90BB 


0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 


ROMDIS 
MATRIX 
TABLE 

CURSOR 
GETPEN 
SETPEN 
TXTOUT 


NXTCHR 


DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
CALL 
PUSH 
LD 
LD 
LD 
INC 
LD 
INC 
LD 
LD 
LD 
PUSH 
PUSH 
PUSH 
LD 
LD 
CALL 
LD 
CALL 
LD 
CALL 
POP 
LD 
LD 
CALL 
LD 
CALL 


08909H 
OBBASH 
08B75H 
08875H 
0BB93H 
0BB90H 
OBBSAH 
GETPEN 
AF ' 
L, (1X+4) 
H, (1X+5) 
B, (HL) 
HL 

E, (HL) 
HL 

D, (HL) 
L, (1X+6) 
H, (1X+8) 
ec 

DE 

HL 

A, (DE) 
B,A 
ROMENA 
A,B 
BIGCHR 
B,A 
ROMDIS 
HL 

EsL 

D,H 
CURSOR 
A, (1X+2) 
SETPEN 
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9Cc71 
9C72 
9C75 
9C76 
9C79 
9CT7A 
9C7B 
9c7C 
9C7F 
9C82 
9085 
9C86 
9087 
9088 
9C8B 
9c8c 
9c8F 
9090 
9C91 
9C92 
9C93 
9094 
9cC95 
9C96 
9098 
9099 
9co9c 
9C9D 
9CA0D 
9CA1 
9CA4 
9CAS 
9CA7 
9CA9 
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78 
CDSABB 
30 
CDSABB 
6B 

62 

2C 
CD75BB 
DD7E00 
CD90BB 
78 

30 

3C 
CDS5ABB 
3C 
CDSABB 
6B 

62 

24 

24 

D1 

13 

c1 
1080 
F1 
CD90BB 
c9 
CDASBB 
EB 
CDAEBB 
FS 
0E02 
0604 
Cs 


0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0s00 
0510 
0520 
0530 
0540 
esse 
0560 
0570 
0sso 
0s90 
0600 
0610 
0620 
0630 
0640 
v650 
0660 
0670 
0680 


BIGCHR 


LD 
CALL 
INC 
CALL 
LD 
LD 
INC 
CALL 
LD 
CALL 
LD 
INC 
INC 
CALL 
INC 
CALL 
LD 
LD 
INC 
INC 
POP 
INC 
POP 
DJNZ 
POP 
CALL 
RET 
CALL 
EX 
CALL 
PUSH 
LD 


0690 NXTSET LD 
0700 NXTRON PUSH 


AB 
TXTOUT 
A 
TXTOUT 
L,E 
H,D 

L 
CURSOR 
A, (IX+0) 
SETPEN 
A,B 

A 

A 
TXTOUT 
A 
TXTOUT 
L,E 
H,D 


NXTCHR 
AF 
SETPEN 


MATRIX 
DE), HL 
TABLE 
AF 

c,2 
B,4 

Bc 


9CAA 
9CAB 
9CAc 
9CAD 
9CAE 
9CAF 
9CB1 
9CB2 
9CB4 
9CB6 
9CB8 
9CB9 
9CBA 
9CBB 
9CBD 
9CBE 
9cco 
9cct 
9cc3 
9CC4 
9cc6o 
9cce 
9CCA 
9CccB 
9cec 
9CcD 
9ccr 
9CDO 
9CDZ 
9CD3 
9CD4 
9CD6 
9CD8 
9CD9 


1A 
oF 
oF 
oF 
oF 
0604 
1F 
CcB1E 
CB2ZE 
10F9 
7E 
23 
77 
0607 
23 
10FD 
1A 
0604 
1F 
cB1E 
CcBZE 
10F9 
7E 
23 
77 
0607 
28 
10FD 
13 
c1 
10D3 
0608 
23 
10FD 


0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0s8s0 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 


LFTBYT 


NXT1 


RGTBYT 


NXTZ 


NXT3 


LD 
RRCA 
RRCA 
RRCA 
RRCA 
LD 
RRA 
RR 
SRA 
DJNZ 
LD 
INC 
LD 
LD 
INC 
DJNZ 
LD 
LD 
RRA 
RR 
SRA 
DJNZ 
LD 
INC 
LD 
LD 
DEC 
DJNZ 
INC 
POP 
DJNZ 
LD 
INC 
DJNZ 


A, (DE) 


B,4 


(HL) 
(HL) 
LFTBYT 
A, (HL) 
HL 
(HL) ,A 
B,7 

HL 
NXT1 
A, (DE) 
B,4 


(HL) 
(HL) 
RGTBYT 
A, (HL) 
HL 
(HL) ,A 
B,7 

HL 
NXTZ 
DE 

BC 
NXTROLUW 
B,8 

HL 
NXT3 
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39CDB 
9CDC 
9CDE 
9CDF 


ee 


0D 
2009 
F1 
Cc9 


1050 
1060 
1070 
1080 
1090 


DEC 
JR 

POP 
RET 
END 


€ 
NZ,NXTSET 
AF 


CINCO - Impresión Masiva 


Impresión Masiva aumenta el tamaño de los caracteres, pero 
a diferente escala que Caracteres Gigantes. Cada carácter es 
16 veces mayor que los normales, cuando se escribe en la 
pantalla. 


Si echa una ojeada a las dos rutinas, Caracteres Gigantes 
e Impresión Masiva, verá muchas diferencias. En efecto, las 
dos rutinas son completamente diferentes. Impresión Masiva 
es mucho más sencilla de escribir que Caracteres Gigantes. 
La rutina Impresión Masiva asigna bloques de dos por dos del 
carácter CHR$(143) (bloques sólidos) por cada punto del ca- 
rácter nmormal, mientras que la rutina Caracteres Gigantes no 
se puede usar este método de ahorro de tiempo, resultando u- 
na rutina más larga y compleja. 


da e IMPRESION MASIVA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40085 

30 READ a$: POKE n, VAL ('2£''+ as) 

40 NEXT 

50 DATA CD,93,BB,F5,CD,06,B9,DD,7E,04 
60 DATA CD,AS5,BB,EB,DD,6£,06,DD,66, 08 
70 DATA 06,08,C5,0£,80,06,02,C5,E5,CD 
80 DATA 75,BB,CB,40,28,05,DD,7E,00,18 
90 DATA 03,DD,7E,02,CD,90,BB,E1,06, 08 
100 DATA 1A,A1,28,04,3E,8F,18,02,3E,20 
110 DATA CD,5A,BB,CD,5A,BB,CB,39,10,EC 
120 DATA 2C,C1,10,D1,13,C1,10,C8,CD,09 
130 DATA B9,F1,CD,90,BB,C9 


El formato de la CALL es: 
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CALL 40000,X,Y,CHAR,P1,P2 


Los parámetros de la CALL son similares a los de la rutina 
anterior, con uma excepción. Mientras que en Caracteres Gi- 
gantes se imprimen cadenas de caracteres, en Impresión Masi- 
va se le pasa el código ASCII de un carácter. Si quiere usar 
más de un carácter, llame a la rutina uma vez por cada uno 
que quiere sacar a la pantalla. 


La rutina funciona en cualquiera de los tres modos de pan- 
talla y usa dos parámetros de color, de la misma forma que 
en Caracteres Gigantes. Si quiere caracteres de un solo co- 
lor, ponga el mismo valor en P1 y PZ. 


0001 ; IMPRESION MASIVA 

0002 ; 
9C40 0010 ORG 40000 
BB93 0020 GETPEN DEFL 0BB93H 
BB90 0030 SETPEN DEFL 0BB90H 
BBAS 0040 MATRIX DEFL 0BBASH 
BB75 0050 CURSOR DEFL 0BB75H 
BBSA 0060 TXTOUT DEFL 0BBSAH 
B906 0070 ROMENA DEFL 0B906H 
B909 0080 ROMDIS DEFL 0B909H 
9C40 CD93BB 0090 CALL GETPEN 
9043 FS 0100 PUSH AF 
9C44 CD06B9 0110 CALL ROMENA 
9C47 DD7E04 0120 LD A, (1X+4) 
9C4A CDASBB 0130 CALL MATRIX 
9C4D EB 0140 EX DE), HL 
9C4E DD6GE06 0150 LD L, (1X+6) 
9C51 DD6608 0160 LD H, (1X+8) 
9C54 0608 0170 LD B,8 
9056 CS 0180 NXTROW PUSH BC 
9C37 0E80 0190 LD c,128 
9C39 0602 0200 LD B,2 


90 


9C5B 
9c5c 
9C5D 
9c60 
9c62 
9064 
9067 
9069 
9cec 
9ceF 
9070 
9072 
9073 
9074 
9C76 
9C78 
9C7A 
9c7C 
9c7F 
9C82 
9C84 
9C86 
9087 
9c88 
9C8A 
9C8B 
9cec 
9C8E 
9c91 

9C92 
9095 


ca 

ES 
CD75BB 
CB40 
2805 
DD7E00 
1803 
DD7E02 
CD90BB 
El 
0608 
1A 

A1 
2804 
3E8F 
1802 
3E20 
CDS5ABB 
COSABB 
CB39 
10EC 
2C 

c1 
1001 
13 

c1 
1008 
CD09B9 
F1 
CD90BB 
co 


0210 AGAIN 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 


CcoL2 
SETCOL 


NXTCOL 


SPACE 
PRINT 


PUSH 
PUSH 
CALL 
BIT 
JR 
LD 
JR 
LD 
CALL 
POP 
LD 
LD 
AND 
JR 
LD 
JR 
LD 
CALL 
CALL 
SRL 
DJNZ 
INC 
POP 
DJNZ 
INC 
POP 
DJNZ 
CALL 
POP 
CALL 
RET 
END 


BC 
HL 
CURSOR 
0,8 
25cOL2 
A, (1X+0) 
SETCOL 
A, (1X+2) 
SETPEN 
HL 

8,8 

A, (DE) 

c 

Z, SPACE 
A,143 ” 
PRINT 

A, 32 
TXTOUT 
TXTOUT 
c 
NXTCOL 
L 

BC 


BC 
NXTROLW 
ROMDIS 
AF 
SETPEN 
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SEIS - Relleno de la Pantalla 


Esta simple rutina rellena toda la pantalla del Amstrad 
con el carácter ASCII que usted quiera. 


1 RELLENO DE LA PANTALLA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40021 

30 READ a$: POKE n, VAL (''£''+a$) 

40 NEXT 

50 DATA DD,7E,00,01,E8,03,F5,C5,CD,5A 

60 DATA BB,C1,0B,78,B1,28,03,F1,18,F2 

70 DATA F1,C9 


El formato de la llamada es bastante sencillo: 
CALL 40000,A 


A es el código ASCII del carácter que quiere imprimir en 
la pantalla y puede ser una variable o un número. Com CALL 
40000,66, llenará la pantalla con Bs. La rutima solo funcio- 
na en MODE 1. 


Aquí tiene una oportunidad de desarrollar un pequeño  tra- 
bajo de alteración. Si mira el listado del ensamblaje de es- 
ta rutina, verá que la línea 40 tiene la instrucción LD 
BC,1000. Esta instrucción carga el registro BC con el valor 
1000, y le dice a la rutina la cantidad de espacios de la 
pantalla que se van rellenar con el carácter. En modo 1, es 
de 40x25=1000. En modo 0 hay solo 500 (20x25) y en modo 2 
hay el doble (80x25=2000). Por lo tanto, poniendo BC=500 po- 
drá rellenar la pantalla en modo 0. 


93 


0001 ; RELLENO DE LA PANTALLA 


0002 ; 
9040 0010 ORG 40000 
BBSA 0020 PRNT  DEFL OBBSAH 
9C40 DD7E00 0030 LD A, (IX+0) 
9C43 01E803 0040 LD  BC,1000 
9046 FS 0050 LOOP. PUSH AF 
9047 CS 0060 PUSH BC 
9C48 CDSABB 0070 CALL PRNT 
9C4B C1 0080 POP BC 
9c4C 0B 0090 DEC BC 
9C4D 78 0100 LD AB 
9C4E B1 0110 orR Cc 
9C4F 2803 0120 JR  Z,END 
9c51 Fi 0130 POP AF 
9C52 18F2 0140 JR  L00P 
9054 Fi 0150 END POP AF 
9C55 C9 0160 RET 

0170 END 


Si tiene un ensamblador, solo tiene que editar la línea 40 
y modificarla para que se lea LD BC,500, pero si no lo tie- 
ne, le resultará un poco más complicado. Los tres pares de 
números a la izquierda del número de la línea 40 son los có- 
digos de operación equivalentes al LD BC,1000. Debemos alte- 
rar los dos últimos pares para obtener el número que noso- 
tros queremos. Usaremos el comando PRINT HEX$(500) para ob- 
tener su valor hexadecimal, F4 01. Volviendo al listado 
BASIC, alteraremos los datos apropiados (los números quinto 
y sexto) con F4 01 y volveremos a ejecutar el programa, des- 
pués de haberlo salvado a cinta o a disco. El programa debe 
funcionar correctamente en modo 0. Una vez echo esto, lo po- 
drá alterar facilmente para trabajar en modo 2 o para impri- 
mir solamente unas cuantas líneas de un carácter determinado 
en un modo fijado. 
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SIETE - LOAD/SAVE sim Cabecera 


Esta rutina está destinada solamente a los ordenadores 
Amstrad que utilizan cinta, como el CPC464. 


Si tiene un 464 y desea cargar un programa largo, habrá 
observado que en cada fichero carga un gran número de blo- 
ques. Cada bloque va precedido por uma cabecera que contiene 
información sobre las direcciones de comienzo y la longitud 
de los datos. 


Este programa elimina las cabeceras, haciendo que se car- 
gue y se grabe el programa como un gran bloque, acortando en 
gran medida el tiempo que se necesita para cargarlo y gra- 


barlo. Una vez que se llama a la rutina, no lanza ningún 
mensaje. 
1 SIN CABECERA 


10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40167 

30 READ a$: POKE n,VAL ("'£''+2a$) 

40 NEXT 

50 DATA FE,03,28,16,21,C0,9C,FE,02,20 
60 DATA SF,AF,DD,S5E,00,DD,56,01,DD,6E£ 
70 DATA 02,DD,66,03,18,0F,DD,7E,00,DD 
80 DATA S5SE,02,DD,56,03,DD,6€E, 04,DD,66 
90 DATA 05,CD,9E,BC,30,36,C9,FE,03,28 
100 DATA 16,21,C0,9C,FE,02,20,30,AF,DD 
110 DATA SE, 00,DD,56,01,DD,6E,02,DD,66 
120 DATA 03,18,0F,DD,7E,00,DD,S5E, 02,DD 
130 DATA 56,03,DD,6E,04,DD,66,05,CD, Al 
140 DATA BC,D8,B7,28,05,21,D3,9C,18,06 
150 DATA CD,03,BB,21,DF,9C,7E,23,CB,7F 
160 DATA 20,05,CD,5A,BB,18,F5,CB),BF,CD 
170 DATA 5A,BB,3E,07,CD,S5A,BB,C9,2A,46 
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180 DATA 41,4C,54,41,20,50,41,52,41,4D 
190 DATA 45,54,52,4F,AA,2A,45,92,52,4F 
200 DATA 52,20,4C,459,43,94,595,52,41,AA 
210 DATA 2A,45,53,43,41,50,45,AA 


El formato de la CALL es: 


Para SAVE: 


CALL 40000,S,L,SYNC 


Para LOAD: 


CALL 40047,S,L,SYNC 


S es la dirección de comienzo y L la longitud del progra- 
ma, ya que no disponemos de cabeceras para almacenar esta 
información. La variable SYNCH la usa el Amstrad para dis- 
tinguir la cabecera (carácter 44) de los datos (representa- 
dos por un valor SYNCH de 22). Como no tenemos cabeceras, el 
valor incluido mo es importante, excepto que para el LOAD se 
debe usar el mismo valor que se usó para el SAVE 


0001 ; SIN CABECERA 
0002 ; 
9040 0010 ORG 40000 
0020 ; RUTINA DE SAVE 
BCOE 0030 SAVE DEFL 0QBCIEH 
BCA1 0040 LOAD DEFL 0BCA1H 
BBSA 0050 TXTOUT DEFL 0BBSAH 
BB03 0060 KRESET DEFL 0BBO3H 
9C40 FEOS 0070 cP 3 
9C42 2816 2080 JR Z,SVSYNC 
9C44 21C09C 0090 LD HL), PARAM 
9C47 FE0OZ 0100 cP Ze 
9C49 205F 0110 JR NZ, ERROR 
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9C4B 
9c4C 
9C4F 
9C32 
9Cco5s 
9058 
9C5A 
9C5D 
9C60 
9C63 
9C66 
9C69 
9cec 
9C6E 


9cC6oF 
9Cc71 
9073 
9C76 
9078 
9C7A 
9C7B 
9CTE 
9C81 
9C84 
9087 
9C89 
9c8c 
9C8F 
9C92 
9C95 
9098 
9C9B 


AF 
DDS5E00 
DD5601 
DD6E0Z 
DD6603 
180FfF 
DD7E00 
DDSE02 
DD5S603 
DD6E04 
DD6605 
CD9EBC 
3036 
co 


FEO3 
2816 
21C09C 
FEOZ2 
2030 
AF 
DDSE00 
DD5S601 
DD6E02 
DD6603 
180F 
DD7E00 
DDSE02 
DD5603 
DD6E 04 
DD6605 
CDA1BC 
D8 


0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 


SVSYNC 


SVESET 


, 


LDSYNC 


LDSET 


XOR 
LD 
LD 
LD 
LD 
JR 
LD 
LD 
UE 
LD 
LD 
CALL 
JR 
RET 


A 

E, (IX+0) 
D, (XI+1) 
L, (1X+2) 
H), (XI+3) 
SVESET 
A, (IX+0) 
E, (1X+2) 
D, (IX+3) 
L, (1X+4) 
H, (1X+5) 
SAVE 

NC, ESC 


RUTINA DE LOAD 


cP 
JR 
LD 
cP 
JR 
XOR 
LD 
LD 
LD 
LD 
JR 
LD 
LD 
LD 
LD 
LD 
CALL 
RET 


3 
Z,LDSYNC 
HL), PARAM 
2 

NZ), ERROR 
A 

E, (1X+0) 
D, (IX+1) 
L, (1X+2) 
H), (1X+3) 
LDSET 

A, (IX+0) 
E, (1X+2) 
D, (IX+3) 
L, (1X+4) 
H), (IX+5) 
LOAD 

e 


EÑA 


9c9c 
9C9D 
9CoF 
9CAZ 
9CA4 
9CA7 
9CAA 
9CAB 
9CAC 
9CAE 
9CB0 
9CB3 
9CBS 
9CB7 
9CBA 
9cBc 
9cCBF 
acco 
9cc6 
9CDO 
9CD1 

9CD7 
9CDF 
9CE0 
9CE7 
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B7 
2805 
21D39C 
1806 
CD03BB 
Z21DF9C 
7E 

23 
CcB7F 
2005 
CDS5ABB 
18F5 
CcBBF 
CDSABB 
3£07 
CDSABB 
Ca 


AA 


AA 


AA 


0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 


ESC 


ERROR 


ENDERR 


PARAM 


TAPERR 


ESCAPE 


OR 
JR 
LD 
JR 
CALL 
LD 
LD 
INC 
BIT 
JR 
CALL 
JR 
RES 
CALL 
LD 
CALL 
RET 
DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFM 
DEFB 
END 


A 

Z,ESC 

HL, TAPERR 
ERROR 
KRESET 
HL, ESCAPE 
A, (HL) 

HL 

7,A 

NZ, ENDERR 
TXTOUT 
ERROR 

7,A 
TXTOUT 
A,7 
TXTOUT 


“*FALTA" 

'* PARAMETRO" 
1 '"+80H 
"ERROR" 

" LECTURA" 

1 '"+80H 
"*ESCAPE" 
"x'"+80H 


OCHO - Música por 
Interrupciones 


Muchos de los juegos comerciales hacen sonar una música 
continuamente mientras se juega. Hemos querido producir un 
efecto similar para que lo pueda incluir usted en sus pro- 
pios juegos. El resultado es este programa. 


Este programa es uno de los más largos del libro. El alma- 
cenamiento de los datos de la música es una labor que consu- 
me mucha memoria. Aún así, la rutina completa (incluida la 
música) ocupa solamente 590 octetos, dejándole aún 43K para 
su juego. Es necesario usar la rutina en código máquina jun- 
to con unas pocas instrucciones BASIC: 


10 CALL 40000,0 
20 EVERY 6 GOSUB 13000 


.«.. Resto del Juego 


13000 CALL 40000: RETURN 


La primera CALL debe ir seguida por un número cualquiera 
(aquí hemos elegido 0; realmente no importa el yalor que se 
use). Esto inicia la rutina y prepara los datos para ejecu- 
tar. La segunda línea utiliza el comando de BASIC EVERY para 
controlar las interrupciones del sistema, por lo tanto le 
sugiero que mire en el manual del Amstrad, capítulos 9.3 y 
10. Cada 6/50 de segundo, el programa saltará a la subrutina 
por medio de la línea 13000 (puede colocar “esta subrutina en 
el lugar que usted desee). La CALL que tiene la subrutina 
solo ejecuta la siguiente nota de la canción, y después 
vuelve a continuar con el programa normal. 


Se pueden cambiar los 6/50 de segundo por cualquier tiempo 
que se desee, esto es solo un ejemplo. El sonido usa sola- 
mente el canal 1 y el ENV de volumen, la envolvente 15. Esta 
envolvente puede ser redefinida en el BASIC para crear efec- 
tos extraños. Se puede parar la música inmhabilitando las in- 
terrupciones. Por suerte tenemos un comando BASIC que lo 


99 


puede hacer, se llama DI. El comando opuesto es El 


las interrupciones). 


90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


100 


, 


SYMBO 
FOR n 
READ 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


MUSICA POR INTERRUPCIONES 
L AFTER 256: MEMORY 39999: SYMBOL AFTER 240 


=40000 TO 40590 
a$: POKE n, VAL ('£'+a$). 


B7,28,14,21,95,9C,22,5D,9C,3E 
01,32,84,9C,3E,0F,21,85,9C,CD 
BC,BC, C9,21,84,9C,35,C0,11,95 
9C,1A,B7,C8,13,77,3C,20,09,1A 
77,21,95,9C,22,59D,9C,C9,1A,6F 
13,1A,67,13,ED,53,59D,9C, 22,8F 
9C,21,8C,9C,CD,AA,BC,C9,00,02 
03,05,01,0F,FF,0A,81,0F,00,00 
00,00,00,00,00 
DATOS DE LA MUSICA 
Q02,AA,01,02. 92 
01,01,7B8,01,02,EF,00,01,7B,01 
02,EF,00,01,7B,01,06,EF,00,01 
EF,00,01,D5,00,01,C9,00,01,BE 
00,01,EF,00,01,05,00,02,BE,00 
01,FD,00,02,D5,00,06,EF,00,02 
AA,01,02,92,01,01,7B,01,02,EF 
00,01,7B,01,02,EF,00,01,7B,01 
06,EF,00,01,1C,01,01,3F,01,01 
52,01,01,1C,01,01,EF,00,02,BE 
00,01,D5,00,01,EF,00,01,1C,01 
06,D5,00,02,AA,01,02,92,01,01 
78,01,02,EF,00,01,7B,01,02,EF 
00,01,7B,01,06,EF,00,01,EF,00 
01,D5,00,01,C9,00,01,BE,00,01 
EF,00,01,D5,00,02,BE,00,01,FD 


(Habilita 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


420, 


430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
3530 
540 
3550 
560 
570 
580 
590 
600 
610 
620 
630 
640 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00,02,D5,00,06,EF,00,01,EF,00 
01,D5,00,01,BE,00,01,EF,00,01 
D5,00,02,BE,00,01,EF,00,01,D5 
00,01,EF,00,01,BE,00,01,EF,00 
01,D5,00,02,BE£,00,01,EF,00,01 
D5,00,01,EF,00,01,BE,00,01,EF 
00,01,05,00,02,B£,00,01,FD,00 
02,D5,00,06,EF,00,01,7B,01,01 
66,01,01,52,01,02,3F,01,01,1C 
01,02,3F,01,01,7B,01,01,66,01 
01,52,01,02,3F,01,01,1C,01,02 
3F,01,01,BE,00,01,EF,00,01,3F 
01,01,1C,01,01,FD,00,01,EF,00 
01,D5,00,01,BE,00,01,D5,00,01 
EF,00,01,D5,00,05,3F,01,01,3F 
01,01,7B,01,01,66,01,02,3F,01 
01,1C,01,02,3F,01,01,7B,01,01 
66,01,01,52,01,02,3F,01,01,1C 
01,02,3F,01,01,3F,01,01,1C,01 
01,0C,01,01,FD,00,02,FD,00,02 
FD,00,01,1C,01,01,52,01,01,AA 
01,05,3F,01,01,7B,01,01,66, 01 
01,52,01,02,3F,01,01,1C,01,02 
3F,01,01,78,01,01,66,01,01,52 
01,02,3F,01,01,1C,01,02,3F,01 
01,BE,00,01,EF,00,01,3F,01,01 
10C,01,01,FD,00,01,EF,00,01,D5S 
00,01,BE,00,01,D05,00,01,EF,00 
01,D5,00,05,EF,00,01,3fF,01,01 
52,01,01,3F,01,02,EF,00,01,1C 
01,02,EF,00,01,1C,01,01,EF,00 
01,1C,01,01,3F,01,01,EF,00,01 
BE, 00,02,9F,00,01,BE,00,01,EF 
00,01,3F,01,02,1C,01,027,EF,00 
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650 DATA 01,BE,00,03,D5,00,06,EF,00,FF 
660 DATA 01 


Cada nota de la canción consta de tres octetos de datos. 
El primero especifica la longitud de la nota: 


= semicorchea 

= corchea 

= corchea con puntillo 
negra 

= negra con puntillo 


= blanca 


N OO > UN >» 
" 


= blanca con puntillo 


El tono de la nota puede estar, teóricamente entre 1 y 
4000, pero en la práctica usted usará seguramente un rango 
entre 50 y 1300. Esto significa que ha de usar dos octetos 
para contener el valor. El octeto dos contiene el octeto ba- 
jo de la nota y el octeto tres contiene el alto. Esto co- 
rresponde a la fórmula: 


Tono = Octeto Dos + 256 * Octeto Tres 


Los datos de la música comienzan en la línea 150 del car- 
gador de BASIC. Es más sencillo usar el ensamblador para in- 
troducir los datos de la música, pero si no tiene uno, puede 
obtener los valores hexadecimales de cada octeto, e introdu- 
cirlos en el cargador BASIC. Tenga siempre en cuenta que el 
octeto inferior precede siempre al superior. 


Hay dos valores de longitud que tienen un efecto especial. 
Cero marca el final de los datos y dejará de ejecutar la mú- 
sica aunque siga llamándose a la subrutina. El segundo valor 
especial es 255,n que le dice al programa que repita la can- 
ción después de esperar n, donde n es comparable al valor de 
uma de las notas (vea la tabla anterior). 
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9040 
BcBe 
BCAA 
9040 
9041 
9043 
9046 
9049 
9C4B 
9C4E 
9c50 
9053 
9C56 
9057 
9C5A 
9C5B 
9c5sc 
9c5F 
9C60 
9C61 
9C62 
9C63 
9C64 
9C65 
9C67 
9068 
9C69 
9c6c 
9c6F 
9C70 
9C71 
9C72 


B7 
2814 
21959C 
225D9C 
3E01 
32849C 
3E0F 
21859C 
CDBCcBe 
c9 
21849C 
35 

co 
11959C 
1A 

B7 

c8 

13 

77 

3C 
2009 
14 

77 
21959C 
225D9C 
c9 

1A 

6F 

13 


0001 
0002 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 


0260 


0270 
0280 
0290 
0300 
0310 
0320 


5 MUSICA POR INTERRUPCIONES 


j 


AMPENV 
ADDSND 


NXTSND 


DATADR 


CONT 


ORG 
DEFL 
DEFL 
OR 
JR 
LD 
LD 
LD 
LD 
LD 
LD 
CALL 
RET 
LD 
DEC 
RET 
LD 
LD 
OR 
RET 
INC 
LD 
INC 
JR 
LD 
LD 
LD 
LD 
RET 
LD 
LD 
INC 


40000 
0BCBCH 
OBCAAH 

A 
Z,NXTSND 
HL, MUSIC 
(DATADR+1) , HL 
A,1 
(TIME),A 
A,15 

HL), AMPL 
AMPENV 


HL, TIME 
(HL) 

NZ 
DE,MUSIC 
A, (DE) 

A 

z 

DE 

(HL) ,A 

A 

NZ, CONT 
A, (DE) 
(HL), A 
HL), MUSIC 
(DATADR+1) , HL 


A, (DE) 
L,A 
DE 
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9ICTS 
9C74 
9C75 
9C76 
9C7A 
9C7D 
9080 
9C83 
9C84 
9085 


9C89 


9c8ec 


9C8F 


9C95 
9C96 
9C98 
SC9A 
9C9B 
9C9D 
9CIE 
9Co9F 
9CA1 
9CA3 
9CA4 
9CAS 
9CA7 
9CAS 
SCAA 
S9CAB 
9CAD 
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1A 

67 

13 
EDS35D9C 
228F9C 
218C9C 
CDAABC 
co 

00 

02 

03 05 01 
QF 

FF QA 
81 

or 00 
00 

00 00 00 
02 
AA0Q1 
02 
9201 
01 
7801 
02 
EFOO 
01 
7801 
02 
EFOO 
01 
7801 
06 
EFOO 
01 


0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 TIME 
0420 AMPL 


0430 


0440 SOUND 


0450 TONE 
00 00 
0460 MUSIC 
0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

03550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 


LD 
LD 
INC 
LD 
LD 
Lo 
CALL 
RET ' 
DEFB 
DEFB 


DEFB 


DEFB 


DEFB 


DEFB 
DEF 
DEFB 
DEFUW 
DEFB 
DEF 
DEFB 
DEF 
DEFB 


DEFW 2 


DEFB 
DEFW 
DEFB 
DEFW 


A, (DE) 

HA 

DE 
(DATADR+1),DE 
(TONE), HL 

HL, SOUND 
ADDSND 
LINDA 
15,255,10 


129,15,0 


0,0,0,0,0,0 


2 
426 
2 


402 


DEFB 6 


DEFW 
DEFB 


9CAE 
9CB0 
9CB1 
9CB3 
9CB4 
9CB6 
9CB7 
9CB9 
9CBA 
9CcBe 
9CBD 
9CBF 
9Cccoa 
9ccz 
9cc3 
9CCs 
9ccóo 
9CC8 
9cco 
9CcB 
9cce 
9CCE 
9ccrF 
9CD1 
9CD2 
9CD4 
9CDS 
9CD7 
9CD8 
9CDA 
9CDB 
9CDD 
9CDE 
9CE0 


EFOO 
01 
DS500 
01 
c900 
01 
BE00 
01 
EFOO 
01 
D500 
02 
BE00 
01 
FDOO 
02 
D500 
06 
EFO0 
02 
AA01 
02 
9201 
01 
7801 
02 
EFOO 
01 
7801 
02 
EFO0O 
01 
7801 
06 


0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
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9CE1 
9CE3 
9CE4 
9CE6 
9CE7 
9CE9 
9CEA 
9CEC 
9CED 
O9CEF 
9crFa 
9CFZ 
9CcF3 
9CFS 
9cF6 
9cF8 
9CcF9 
9CFB 
9CcFC 
9cCFE 
9CFF 
9D01 
9D02 
9D04 
9D05S 
9D07 
9D08 
9DOA 
9D0B 
9D0D 
9D0E 
9D10 
9D11 
9013 


106 


EF00 
01 
1c01 
01 
3F01 
01 
5201 
01 
1c01 
01 
EFOO 
02 
BE00 
01 
DS500 
01 
EFOO 
01 
1C01 
06 
D500 
02 
AA01 
02 
9201 
01 
7801 
02 
EFO0 
01 
7801 
02 
EF00 
01 


0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


DEFUW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEFUW 
DEFB 
DEF 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFUW 
DEFB 
DEFUW 
DEFB 
DEFUW 
DEFB 
DEF 
DEFB 


9D14 
39D16 
9D17 
9D19 
9D1A 
9D1C 
9D1D 
9D1F 
39D20 
9D22 
9D23 
9D25 
9D26 
9D28 
9D29 
9D2B 
9DZC 
9DZE 
9D2F 
9D31 
9D32 
9D34 
9D35 
9D37 
9D38 
9D3A 
9038 
39D30D 
9D3E 
9D40 
9D41 
9D43 
9D44 
9D46 


7801 
06 
EFOO 
01 
EFOO 
01 
D500 
01 
c900 
01 
BE00 
01 
EFOO 
01 
DS00 
02 
BE00 
01 
FDO0 
02 
DS500 
06 
EFOO 
01 
EFOO 
01 
D500 
01 
BE00 
01 
EFOO 
01 
D500 
02 


1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 


DEFUW 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFUW 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
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9D47 
9D49 
9D4A 
9D4C 
9D4D 
9D4F 
9D50 
9D52 
9D53 
9D55 
9D56 
9D58 
9D59 
9D5B 
9DSC 
9DSE 
9DSF 
9D61 

9D62 
9D64 
9D65 
9D67 
9D68 
9DOGA 
9D6B 
9D6D 
9D6E 
9D70 
9D71 

9D73 
9D74 
9D76 
39D77 
9D79 
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BE00 
01 
EFOO 
01 
D500 
01 
EFO0O 
01 
BE00 
01 
EFOO 
01 
D500 
02 
BE00 
01 
EFQO 
01 
D500 
01 
EFOO 
01 
BE00 
01 
EFOO 
01 
D500 
02 
BE00 
01 
FDOO 
02 
DS00 
06 


1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


DEF 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEF 


DEFB 1 


DEF 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 


9D7A 
907€ 
9D7D 
9D7F 
9080 
9082 
9D83 
9D85 
9086 
9088 
9089 
9088 
9D8C 
9D8E 
9D8F 
9091 
9092 
9094 
9095 
9097 
9098 
DIA 
9098 
9090 
9D9E 
9DAO 
9DA1 
9DA3 
IDAS 
9DAG 
9DA7 
IDA 
ODAA 
IDAC 


EFOO 
01 
7801 
01 
6601 
01 
5201 
02 
3F01 
01 
1Cc01 
02 
3F01 
01 
7801 
01 
6601 
01 
5201 
02 
3F01 
01 
1C01 
02 
3F01 
01 
BE00 
01 
EFOO 
01 
3F01 
01 
1c01 
01 


1992 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
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9DAD 
:9DAF 
90DB0 
90B2 
9DB3 
9DBS 
90B6 
9088 
9DB9 
90BB 
9DBC 
9DBE 
9DBF 
9DC1 

9DC2 
9DC4 
9DCS 
9DC7 
9DC8 
9DCA 
9DCB 
9DCD 
9DCE 
9DD0 
9DD1 

9DD3 
9DD4 
9DD6 
9DD7 
9DD9 
S9DDA 
9DDC 
9DDD 
9DDF 
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FDO 
01 
EFOO 
01 
D500 
01 
BE00 
01 
DS00 
01 
EFOO 
01 
DSs00 
05 
3F01 
01 
3F01 
01 
7801 
01 
6601 
02 
3F01 
01 
1C01 
02 
3F01 
01 
7801 
01 
6601 
01 
5201 
02 


2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2320 
2330 
25340 
2350 
2560 
2970 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 


DEFW 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFUW 
DEFB 
DEFUW 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 


9DEO 
9DE2 
9DE3 
9DES 
9DE6 
9DE8 
9DEO 
9DEB 
DEC 
ODEE 
ODEF 
9DF1 
90F2 
9DF 4 
9DFS 
9DF7 
9DF8 
ODFA 
9DFB 
S9DFD 
9DFE 
9E00 
9E01 
9E03 
9E04 
9E06 
9E07 
9E09 
SEDA 
9E0C 
9E0D 
9E0F 
9E10 
9E12 


3F01 
01 
1c01 
02 
3F01 
01 
3F01 
01 
1C01 
01 
0co1 
01 
FDOO 
02 
FDO0 
02 
FDO0 
01 
1C01 
01 
5201 
01 
AA01 
as 
3F01 
01 
7801 
01 
6601 
01 
5201 
02 
3F01 
01 


2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2300 
2910 
2920 
29730 
2940 
2950 
2960 
2970 
2980 
2990 
3000 


DEFW 
DEFB 
DEFW 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEF 
DEFB 


00 
5 


ONPE IQ >on e 
N Y] 
o 0 


» 
No) 


WU »- 
Ni] 
0D 


1c01 
02 
3F01 
01 
7801 
01 
6601 
01 
5201 
02 
3F01 
v1 
1201 


> 


L£ 


28 3F01 


01 
BE00 
01 
EFOQ 
01 
3F01 
01 
1c01 
01 
FDO 
01 
EFO0Q 
01 
DS500 
01 
BE00 
01 
DS500 
01 


9E46 
9E48 
9E49 
9E48B 
9E4C 
DE4E 
DE4F 
9ES1 

9E52 
9ES4 
9ESS 
9E57 
9ES8 
ESA 
9ESB 
9ESD 
ESE 
9E60 
9E61 

963 
9E64 
9E66 
967 
9E69 
9EGA 
9E6C 
9E6D 
ESF 
9E70 
9E72 
9E73 
9E75 
9E76 
9E78 


EFOO 
01 
DSs00 
05 
EFOO 
01 
3F01 
01 
5201 
01 
3F01 
02 
EFOO 
01 
1c01 
02 
EFOO 
01 
1C01 
01 
EFOO 
01 
1c01 
01 
3F01 
01 
EFOO 
01 
BE00 
02 
9F00 
01 
BE00 
01 


3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
30640 
3650 
3660 
3670 
3680 


DEF 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEFU 
DEFB 
DEFUW 


DEFB 1 


DEF 
DEFB 
DEFW 
DEFE 
DEFW 
DEFB 
DEFW 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEFUW 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
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9E79 
9E78B 
9E7C 
9E7E 
9E7F 
9E81 
9E82 
9E84 
9E85 
9E87 
9E88 
9E8BA 
9E8B 
9E8D 


EFOO 
01 
3F01 
02 
1c01 
02 
EFOO 
01 
BE00 
03 
DSs00 
v6 
EFOO 
FF 
01 


3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 


3830 


DEFW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFUW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFUW 
DEFB 


END 


NUEVE - Monitor de Código 
Máquina 


Este programa le permitirá examinar el contenido de la me- 
moria de su Amstrad. Puede ver en la pantalla el contenido 
de su RAM y ROM. Además, puede alterar el contenido de las 
posiciones de memoria, haciendo que el programa sea algo más 
que un simple "analizador de memoria". 


Los comandos disponibles son: 


13 = Avance rápido por la memoria. 

"E? = Avance lento por la memoria. 

.D” = Retroceso lento por la memoria. 

1X? = Retroceso rápido por la memoria. 

Q* = Salir. (No puede usar ESC para cortar el 
programa) 


ENTER” para introducir un número en una dirección. 


Hay varias cosas que debe tener en cuenta cuando pulse la 
tecla ENTER. La dirección que se puede alterar cuando se 
pulsa la tecla ENTER es la que está en la línea que aparece 
en lo alto de la pantalla. Segundo, tenga mucho cuidado 
cuando intente alterar algún valor, particularmente entre 
40000 y 40276, ya que es donde está almacenado el programa 
monitor. 


10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 CLS 

30 monitor=40000: scrol1l=40034 

40 LOCATE 11,2:PRINT "Monitor de Código Máquina" 
50 IF PEEK(40000)=8DD AND PEEK(40001)=86E GOTO 90 
60 FOR n=40000 TO 40276 

70 READ a$: POKE n, VAL (''£''+2a$) 
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80 NEXT 

90 LOCATE 11,6: INPUT "Dirección de comienzo"; st 

100 LOCATE 11,8:PRINT "Para examinar direcciones" 

110 LOCATE 11,9:PRINT "£0000-84000 y 8£CO00-EFFFF" 

120 LOCATE 11,10:PRINT "(A) ROM o (B) RAM?" 

130 rom<=0 

140 IF INKEY(69)=0 THEN rom%<=1:GOTO 160 

150 IF INKEY(54)<>0 GOTO 140 

160 start%= INT (UNT (st))-25 

170 POKEÉ scroll,25 

180 CALL monitor,Grom%,Bstar t% 

190 IF rom%=99 THEN CLS: END 

200 LOCATE 12,1:PRINT "> <":LOCATE 13,1 

210 GOSUB 260: h$=a$ 

220 GOSUB 260: 1$=a3$ 

230 IF INKEY (57) *INKEY (58) *INKEY(61)=0 GOTO 23 

240 POKE start%, VAL ("£'"+h$+ 1$) 

230 POKEÉ scroll,1:G0TO 180 

260 a$=UPPER$S (INKEYS$): IF a$<"0'" OR a$>"F" OR a$>'9" 
AND a$<'"'A" GOTO 260 

270 PRINT a$; 

280 RETURN 

290 DATA DD,6E£,00,DD,66,01,S5E,23,56,DD 

300 DATA 6E,02,DD,66,03,7E,B7,28,08,CD 

310 DATA 00,B9,CD,06,B9,18,06,CD,03,B9 

320 DATA CD,09,B9,06,19,C5,3E,19,CD,D1 

330 DATA 9C,C1,10,F7,3£,39,CD,1E,BB,28 

340 DATA 07,3E£,19,CD,D1,9C0,18,F2,3E,3F 

350 DATA CD,1E,BB,28,07,3E,01,CD,D1,9C 

360 DATA 18,E4,3E,3A,CD,1E,BB,28,07,3E 

370 DATA 19,CD,C7,9C,18,D6,3E,3D,CD,1E£ 

380 DATA BB,28,07,3E,01,CD,C7,9C,18,C8 

390 DATA 3E£,12,CD,1E,BB,20,0F,3E,43,CD 

400 DATA 1E£,BB,28,BA,DD,6E,02,DD,66, 03 
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410 DATA 36,63,DD,6E,00,DD,66,01,73,23 
420 DATA 72,CD,03,BB,C9,F5,01,00,50,08 
430 DATA 78,B1,20,FB,F1,F9,D5,47,CB,38 
440 DATA CB,38,CB,38,CB,38,AF,CD,4D,BC 
450 DATA 3E£,1F,CD,5A,BB,3E,05,CD,5A,BB 
460 DATA D1,F1,F5,CD,5A,BB,FE,01,28,07 
470 DATA 13,21,18,00,19,18,03,18,62,6B 
480 DATA 44,CD,34,9D,45,CD,34,9D,3E,1F 
490 DATA CD,5A,BB,3E,0D,CD,5A,BB,F1,FS 
500 DATA CD,5SA,BB,46,CD,34,9D,C1,7E,FE 
510 DATA 21,F8,FE,7F,F0,3E,1F,CD,S5A,BB 
520 DATA 3E,13,CD,5A,BB,78,CD,5A,BB,7E 
530 DATA CD,S5A,BB,C9,78,E6,0F,4F,CB,38 
540 DATA CB,38,CB,38,CB,38,78,06,02,FE 
550 DATA 0A,F2,4C,9D,C6,30,18,02,C6,37 
560 DATA CD,5A,BB,79,10,EF,C9 


Observe que los 64 primeros octetos de la ROM son idénti- 
cos a los 64 primeros octetos de la RAM. Esto se debe a Que 
estos primeros octetos constituyen el bloque de salto a ru- 
tinas y se copia desde la ROM a la RAM cuando se enciende la 
máquina. 


Cuando ejecute el programa, éste le pedirá la dirección 


desde la que quiere comenzar. Introdúzcala en decimal o en 
hexadecimal. Si usa hex, la dirección debe ir precedida por 
el carácter '£*. Como puede ver en el listado que proporcio- 


na el programa en acción, todas las direcciones y valores se 
muestran en hexadecimal. 


Monitor de Código Máquina 


Dirección de comienzo? 8742 


Para examinar 
8£80000-84000 y 
(A) ROM o (B) 


0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
074A 
0748 
074€ 
0740 
074E 
074F 
0750 
0751 
07532 
0753 
0754 
07535 
0756 
0737 
0758 
07539 
075A 


direcciones 
8£C000-£FFFF 
RAM? 


D00 » 0 3 T3:0 QM 


= 


0< y 


x 


9040 
B900 
B903 
B906 
B909 
BB1E 
BB03 
BC4D 
BBSA 
9040 
9043 
9046 
9C47 
9048 
9049 
9C4C 
9C4F 
9050 
9Cc51 
90593 
9C56 
9059 
9C3B 
9CSE 
9c61 
9C63 
9C64 
9C66 
9C69 
9CO6A 
9coc 


DD6E00 
DD6601 
5E 

23 

56 
DD6E02 
DD6603 
7E 

B7 
2808 
CD00BO 
CD06B9 
1806 
CDO03B9 
CcDO09B9 
0619 
ca 
3E19 
CDD19C 
c1 
10F7 
3E39 


0001 
0002 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 


, 


, 


UROMON 
UROMOF 
LROMON 
LROMOF 
TSTKEY 
KRESET 
SCROLL 
TXTOUT 


ROMOFF 


ROMSET 
SETUP 


0310 MAIN 


MONITOR C/M 


ORG 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
LD 
LD 
LD 
INC 
LD 
LD 
LD 
LD 
OR 
JR 
CALL 
CALL 
JR 
CALL 
CALL 
LD 
PUSH 
LD 
CALL 
POP 
DJNZ 
LD 


40000 
08900H 
0B903H 
08906H 
0B8909H 
0BB1EH 
0BB03H 
0BC4DH 
QBBSAH 
L, (1X+0) 
H, (1X+1) 
E, (HL) 
HL 

D, (HL) 
L, (1X+2) 
H, (1X+3) 
A, (HL) 

A 
Z,ROMOFF 
UROMON 
LROMON 
ROMSET 
UROMOF 
LROMOF 
B,25 

BC 

A,25 
NOWA IT 
BC 
SETUP 
A,57 


9C6E 
9071 

9073 
9075 
9078 
9C7A 
9C7C 
9C7F 
9c81 

9083 
9C86 
9c88 
9C8A 
9C8D 
9C8F 
9c91 

9C94 
9C96 
9098 
9C9B 
9C9D 
9CoF 
9CAZ 
9OCA4 
9CA6 
9CA9 
OCAB 
OCAD 
9CBO 
9CB2 
-9CB5 
9CB8 
OCBA 
9CBD 
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CD1EBB 
2807 
3E19 
CcDD19Cc 
18F2 
3E3F 
CD1EBB 
2807 
3E01 
CDD19C 
18E4 
3E3A 
CD1EBB 
2807 
3E19 
CcDc79c 
18D6 
3E3D 
CD1EBB 
2807 
3E01 
CcDCc79c 
18c8 
3E12 
CD1EBB 
200F 
3E43 
CD1EBB 
Z8BA 
DD6E02 
DD6603 
3663 
DD6E00 
DD6601 


0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 


NOT3 


NOTX 


NOTE 


NOTD 


ENTER 


CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
LD 
LD 
LD 
LD 


TSTKEY 
Z,NOT3 
A,25 
NOWAIT 
MAIN 
A,63 
TSTKEY 


"Z,NOTX 


A,1 
NOWAIT 
MAIN 
A,58 
TSTKEY 
Z, NOTE 
A,29 
PAUSE 
MAIN 
A,61 
TSTKEY 
Z,NOTD 
A,1 
PAUSE 
MAIN 
A,18 
TSTKEY 
NZ, ENTER 
A,67 
TSTKEY 
Z, MAIN 
Es (IXZ) 
H), (1X+3) 
(HL) ,99 
L, (IX+0) 
H, (1X+1) 


9cco 
9cc1 
9cc2 
9cc3 
9cc6 
9cc7 
9cc8 
9cCB 
9cce 
9CCO 
9CCE 
9cD0 
9CD1 
9CD2 
9C03 
9CD4 
9CD6 
9CD8 
9CDA 
9coc 
9CDD 
9CEO 
9CE2 
9CES 
9CE7 
OCEA 
9CEB 
9CEC 
9CED 
9cFO 
9cF2 
9CF4 
9cFS 
9cF8 


73 

23 

72 
CDO03BB 
Cc9 

FS 
010050 
08 

78 

B1 
20FB 
F1 

FS 

DS 

47 
CB38 
cB38 
CB38 
CcB38 
AF 
CcD4DBC 
3E1F 
CDSABB 
3E05 
CDSABB 
D1 

FL 

ES 
CDS5ABB 
FEO1 
2807 
13 
211800 
19 


0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 


PAUSE 


DELAY 


NOWAIT 


LD 
INC 
LD 
CALL 
RET 
PUSH 
LD 
DEC 
LD 
OR 
JR 
POP 
PUSH 
PUSH 
LD 
SRL 
SRL 
SRL 
SRL 
XOR 
CALL 
LD 
CALL 
LD 
CALL 
POP 
POP 
PUSH 
CALL 
cP 
JR 
INC 
LD 
ADD 


(HO) ,E 
HL 

(HI) ,D 
KRESET 


AF 

BC, 5000H 
Bc 

Aj)B 

Cc 

NZ, DELAY 
AF 


SCROLL 
A,31 
TXTOUT 
A,39 
TXTOUT 
DE 

AF 

AF 
TXTOUT 
1 

Z, DOLN 
DE 

HL, 24 
HL, DE 
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9cFo 
9CFB 
9cFc 
9CFD 
9CFE 
9cFF 
9D02 
9D03 
9D06 
9D08 
9D0B 
9D0D 
9D10 
9D11 

9D12 
9D15 
9D16 
9D19 
9D1A 
9D1B 
9D1D 
9D1E 
9D20 
2D21 

9023 
9D26 
9028 
9D2B 
9D2C 
9D2F 
9D30 
9D33 
9D34 
9D35 


122 


1803 
18 

62 

6B 

44 
CD349D 
45 
CD349D 
3E1F 
CDSABB 
3E0D 
CDSABB 
Fi 

FS 
CDSABB 
46 
CD349D 
c1 

7E 


FE7F 
FO 
3E1F 
CDSABB 
3E13 
CDS5ABB 
78 
CDSABB 
7E 
CDSABB 
c9 

78 
EG0OF 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


DOLIN 


PRINT 


HEXOUT 


JR 
DEC 
LD 
LD 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LA 
CALL 
POP 
PUSH 
CALL 
LD 
CALL 
POP 
LD 
cP 
RET 
cP 
RET 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
RET 
LD 
AND 


PRINT 
DE 

H,D 
L,E 
B,H 
HEXOUT 


q, 


HEXOUT 
A,31 
TXTOUT 
A,13 
TXTOUT 
AF 

AF 
TXTOUT 
B, (HL) 
HEXOUT 
BC 

A, (HL) 
95 


A,31 
TXTOUT 
A,19 
TXTOUT 
AB 
TXTOUT 
A, (HL) 
TXTOUT 


AB 
15 


9D37 
9D38 
S9DIA 
9D3C 
9D3E 
9D40 
9D41 
9D43 
9D45 
9048 
9D4A 
9D4C 
9D4E 
9D51 
9D52 
9D54 


4F 
cB38 
CB838 
C838 
CB38 
78 
0602 
FEGA 
F24C9D 
c630 
1802 
C637 
COSABB 
79 
10€F 
co 


1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 


DIGIT 


LETTER 
PRNTCH 


LD 
SRL 
SRL 
SRL 
SRL 
LD 
LD 
cP 
JP 
ADD 
JR 
ADD 
CALL 
LD 
DJNZ 
RET 
END 


DUOOOoO o 


AB 

B,2 

10 

P, LETTER 
A, 48 
PRNTCH 
A,55 
TXTOUT 
A,C 
DIGIT 
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DIEZ - Movimiento de Bloques 


Estamos muy orgullosos de estas rutinas. Las encontrará 
muy útiles para programas que requieren gráficos. 


Movimiento de un bloque de pantalla hacia arriba 


Todos los libros de código máquina incluyen algunas ruti- 


nas para mover la pantalla ('scroll'). Suelen estar restrin- 
gidas a una línea, una columma o toda la pantalla. Nuestra 
rutina para hacer Movimiento de un Bloque hacia Arriba (y 


las otras tres rutinas que cubren el resto de las direccica- 
nes, abajo, hacia la izquierda y hacia la derecha) le permi- 
tirán especificar un bloque, o ventana en la pantalla. y ha- 
cer que se mueva suavemente. 


, 


Un movimiento suave es un movimiento punto a punto. Aún en 
código máquina, esto resulta lento, pero será lo suficiente- 
mente rápido para la mayoría de las exigencias. Su gran va- 
lor reside en lo suave del movimiento, en comparación con el 
que se hace carácter a carácter. 


La definición del bloque se hace de modo similar al coman- 
do WINDOW. Su formato es: 


CALL 40000,L,R,U,D 


En este comando, L es la coordenada de más a la izquierda 
del bloque, R es la coordenada de más a la derecha, U es la 
superior y D la coordenada inferior. Por lo tanto, el bloque 
solo puede ser cuadrado o rectangular. Obviamente, L debe 
ser igual o menor que R; y U debe ser igual o menor que  D. 
Tenga en cuenta que L, R, U y D deben ser variables numéri- 
cas o números. 


1 ? SCROLL DE UN BLOQUE HACIA ARRIBA 
10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
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20 FOR n=40000 TO 40145 

30 READ a$: POKE n, VAL (2'"+ as) 

40 NEXT 

50 DATA DD,6E£,02,DD,66,06,2D,25,DD,7E 

60 DATA 04,94,4F,DD,7E,00,95,57,CD,1A 

70 DATA BC,3E,00,81,10,FD,5F,18,38,05 

80 DATA 43,5D,7C,C6,78,57,7D,C€,50,6F 

90 DATA 30,04,24,70,E6,07,20,04,7C,Dé 

100 DATA 08,67,E5,7E,12,1C,20,0A,14,7A 
110 DATA E6,07,20,04,7A,D6,08,57,2C,20 
120 DATA 0A,24,7C,E6,07,20,04,7C,D6,08 
130 DATA 67,10,E2,E1,D1,D5,ES,4B,ES5,06 
140 DATA 07,5D,54,7C,C6,08,67,7E,12,10 
150 DATA F6,E1,2C,20,0A,24,7C,E6,07,20 
160 DATA 04,7C,D6,08,67,0D,20,E2,E1,0D1 
170 DATA 15,20,A2,7C,C6,3€,€67,43,36,00 
180 DATA 2C,20,0A,24,7C,E6,07,20,04,7C 
190 DATA D6,08,67,10,EF,C9 


Cuando ejecute el comando CALL, el bloque especificado se 
moverá hacia arriba un punto, desaparecerá la línea superior 
y se rellenará con blancos la inferior. En la mayoría de los 
casos no será suficiente mover el bloque un solo punto. Para 
moverlo un número determinado de veces, use un bucle 
FOR/NEXT. 


Hay unas pocas limitaciones en el uso de este programa. 
Funciona en cualquier modo de pantalla, y se pueden mover 
varios bloque a la vez. Por supuesto, cuanto más bloques 
tenga en la pantalla, así como cuanto mayor sea el tamaño de 
estos, más lento será el movimiento. Por lo tanto, es mejor 
restringir el tamaño y el número de bloques a los estricta- 
mente necesarios. Para conseguir un efecto más interesante, 
intente mover dos bloques que se solapen uno a otro. 


0010 ¡SCROLL BLOQUE ARRIBA 
0020 ; 
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9040 
BC1A 
9040 
9043 
9C46 
9047 
9048 
9C4B 
9c4cC 
9C4D 
9050 
9C51 
9Cc5a2 
9c55s 
9057 
9058 
9CSA 
9C5B 
9C5D 
9CTE 
9csF 
9C60 
9C61 
9C63 
9C64 
9c65 
9067 
9C68 
9C6A 
9C6B 
9coc 
9C6E 
9C70 
9Cc71 


DD6E02 
DD6606 
2D 

25 
DD7E04 
94 

4F 
DD7E00 
95 

57 
CD1ABC 
3E00 
81 
10FD 
sF 
1838 
DS 

43 

5D 

70 
C638 
57 

7D 
c6sa 
6F 
3004 
24 

7C 
E607 
2004 
70 
D608 


0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 


CHRPOS 


CHRWID 


NXTROL 


ORG 
DEFL 
LD 
LD 
DEC 
DEC 
LD 
suB 
LD 
LD 
suB 
LD 
CALL 
LD 
ADD 
DJNZ 
LD 
JR 
PUSH 
LD 
LD 
LD 
ADD 
LD 
LD 
ADD 
LD 
JR 
INC 
LD 
AND 
JR 
LD 
suB 


40000 
08C1 AH 
L, (1X+2) 
H, (1X+6) 
E 

H 

A, (1X+4) 
H 

CA 

A, (IX+0) 
É 

D,A 
CHRPOS 
A,Q 

A,C 
CHRUID 
EJA 
START 
DE 

B,E 

EJL 

A,H 
A,56 
D,A 

A,L 
A,80 
L,A 

NC, NEUL IN 
H 

A, H 

7 

NZ, NELIL IN 
A,H 

8 
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9C73 
39C74 
9C75 
9C76 
9C77 
9Cc78 
9C7A 
9C7B 
9c7c 
9C7E 
9C80 
9C81 

9083 
9C84 
9085 
9C87 
9088 
9C89 
9C8B 
9C8D 
9C8E 
9090 
9C91 

9093 
9C94 
9095 
9C96 
9097 
9098 
9Cc99 
9C9B 
9coc 
9C9D 
9CIE 
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67 
ES 
7E 
12 
1C 
Z00A 
14 
7A 
EG607 
2004 
7A 
D608 
57 
2C 
200A 
24 
ygo 
EG607 
2004 
7C 
D608 
67 
10E2 
El 
D1 
DS 
ES 
4B 
ES 
0607 
5D 
54 
7C 
c608 


NENL IN 
LASTLN 


DEOK 


HLOK 


START 


NXTCHR 


NXTL IN 


ADD 


HA 

Hut 

A, (HL) 
(DEJ,A 
E 

NZ, DEOK 
D 

A,D 

7 

NZ), DEOK 
AD 

8 

D,A 

L 

NZ, HLOK 
H 

AH 

7 

NZ, HLOK 
A,H 

e 

HA 
LASTLN 
HL 

DE 

DE 


9CA0 
9CA1 
9CAZ 
9CA3 
9CAS 
9CA6 
9CA7 
9CA9 
S9CAA 
9CAB 
9CAD 
9cCAF 
9CB0 
9CB2 
9CB3 
9CB4 
9CB6 
9CB7 
9CB8 
9CB9 
9CBB 
9cBc 
9CBE 
9CBF 
9CcCa 
9ccez 
9CC3 
9CCS 
9Ccc6o 
9cc7 
9cco 
9CCB 
9ccc 
9CCE 


67 
ve 
12 
10F6 
El 
2C 
2004 
24 
7C 
EG607 
2004 
7C 
D608 
67 
0D 
20E2 
El 
D1 
15 
20A2 
7C 
Cc638 
67 
43 
3600 
zC 
200A 
24 
7C 
E607 
2004 
7C 
D608 
67 


0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 


OK 


BLANK 


LD 
LD 
LD 
DJNZ 
POP 
INC 
JR 
INC 
LD 
AND 
JR 
LD 
suB 
LD 
DEC 
JR 
POP 
POP 
DEC 
JR 
LD 
ADD 
LD 
LD 
LD 
INC 
JR 
INC 
LD 
AND 
JR 
LD 
suB 
LD 


H,A 

A, (HL) 
(DE)J,A 
NXTL IN 
HL 


NZ, NXTCHR 
HL 

DE 

D 

NZ,) NXTROLI 
A,H 

A,56 

H,A 

BE 

(Hi) ,0 

E 

NZ, CONT 

H 

A, H 

Ze 

NZ, CONT 
A, H 

8 

HA 
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9CCF 10EF 1050 CONT DJNZ BLANK 
9CD1 C9 1060 RET 
1070 END 


Movimiento de un Bloque de Pantalla hacia abajo 


Esta rutina tiene un diseño y uso similar a la anterior, 
Usada para mover un bloque de pantalla hacia arriba. Funcio- 
na en los tres modos de pantalla y el formato es exactamente 
igual al anterior: 


- CALL 40000,L,R,U,D 


1 ? SCROLL DE UN BLOQUE HACIA ABAJO 
10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40151 

30 READ a$: POKE n,VAL ("£'+a$) 

40 NEXT 

50 DATA DD,6E,00,DD,66,06,2D,25,DD,7E 
60 DATA 04,94,4F,7D,C6,02,DD,96,02,57 
70 DATA CD,1A,BC,7C,C6,38,67,3E,00,81 
80 DATA 10,FD,5F,18,38,0D5,43,5D,7C,D6 
90 DATA 38,57,7D,D6,50,6F,30,0A,7C,25 
100 DATA E6,07,20,04,7C,C6,08,67,ES5,7E 
110 DATA 12,1C,20,04,14,7A,E6,07,20,04 
120 DATA 7A,D6,08,57,2C,20,0A,24,7C,E6 
130 DATA 07,20,04,7C,D6,08,67,10,E2,E1 
140 DATA D1,D5,ES, 4B,E5,06,07,5D,54,7C€C 
150 DATA D6,08,67,7E,12,10,F6,E1,2C,20 
160 DATA 0A,24,7C,E6,07,20,04,77,D6,08 
170 DATA 67,0D,20,E2,E1,D1,15,20,A2,7C 
180 DATA D6,38,67,43,36,00,2C,20,04A,24 
190 DATA 7C,E6,07,20,04,7C,D6,08,67,10 
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200 DATA EF,C9 


De nuevo, L es izquierda, R es derecha, U es arriba y D es 
abajo. Como en la rutina anterior, una simple CALL dará como 
resultado un movimiento de un punto, por lo que será necesa- 
rio un bucle si intenta mover varios punto el bloque. 


0001 ; SCROLL BLOQUE ABAJO 

0002 ; 
9040 0010 ORG 40000 
BC1A 0020 CHRPOS DEFL 0BC1AH 
9C40 DD6GE0O 0030 LD L(TIX+0) 
9C47 DD6606 0040 LD H, (1X+6) 
9C46 2D 0050 DEC L 
9C47 25 0060 DEC H 
9048 DD7E04 0070 LD A, (1X+4) 
9C4B 94 0080 suB H 
9C4C 4F a090 LD C,A 
9C4D 7D 0100 LD A,L 
9C4E C602 0110 ADD A,2 
9C50 DD9602 0120 SUB (1X+2) 
9C53 97 0130 LD D,A 
9C594 CD1ABC 0140 CALL CHRPOS 
9C57 7C€ 0150 LD A,H 
9C58 C638 0160 ADD A,56 
9CIA 67 0170 LD HA 
9C5B 3E00 0180 LD A,0 
9C5D 81 0190 CHRWID ADD  A,C 
9CSE 10FD 0200 DJNZ CHRWID 
9C60 5F 0210 LD E,JA 
9c61 1838 0220 JR START 
9C63 DS 0230 NXTROLW PUSH DE 


9C64 43 0240 LD B,E 


5D 
7C 
D638 
57 
7D 
D6S50 
6F 
300A 
7E 
20 
E607 
2004 
vAS 
c608 
67 
ES 
ZE 
42 
1:€ 
Z00A 
14 
7A 
EG607 
2004 
7A 
D608 
57 
z2C 
2004 
24 
7C 
E607 
2004 
yde 


0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
05900 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 


NEL IN 
LATLN 


DEOK 


LE 
LE 
suB 
LD 
LD 
suB 
LD 
JR 
LD 
DEC 
AND 
JR 
LD 
ADD 
LD 
PUSH 
LD 
LD 
INC 
JR 
INC 
LD 
AND 
JR 
LD 
suB 
LD 
INC 
JR 
INC 
LD 
AND 
JR 
LD 


E,L 

A,H 

560 

D,A 

A, 

80 

L,A 

NC) NEUL IN 
A, H 

H 

7 

NZ, NENUL IN 
AH 

A,8 

HA 

HL 

A, (HL) 
(DE),A 
E 

NZ, DEOK 
D 

A,D 

7 

NZ, DEOK 
A,D 

8 

D,A 

L 

NZ, HLOK 
H 

A,H 

7 

NZ), HLOK 
A,H 


3094 
3096 
3097 
3099 
IC9A 
)C9B 
3C9C 
3C9D 
IC9E 
3C9F 
3CA1 
3CAZ 
3CA3 
3CA4 
3CAG 
3CA7 
3CA8B 
3CA9 
CAB 
ICAC 
3CAD 
3CAF 
3CB0 
3CB1 
)CB3 
CBS 
3CBÓ 
)CB8 
3CB9 
CBA 
3CBC 
3CBD 
3CBE 
3CBF 


D608 


10E2 


0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
v880 
0890 
0900 
0910 
0920 


HLOK 


START 


NXTCHR 


NXTL IN 


OK 


suB 
LD 
DJNZ 
POP 
POP 
PUSH 
PUSH 


PUSH 


DJNZ 
POP 
INC 
JR 
INC 
LD 
AND 
JR 
LD 
suB 
LD 
DEC 
JR 
POP 
POP 
DEC 
JR 


8 

HA 
LASTLN 
HL 

DE 

DE 

HL 


HA 

A, (HL) 
(DE),A 
NXTL IN 
HL 


NZ, NXTCHR 
HL 
DE 
D 
NZ, NXTROL 


9cc1 7C€ 0930 LD A, H 


9CCZ D638 0940 suB 56 
9CC4 67 0950 LD HA 
9CC5 43 0960 LD BE 
9CCé 3600 0970 BLANK LD (HL),0 
9cc8 2c 0980 ING. GE 
9CCY 200A 0990 JR NZ,CONT 
9CCB 24 1000 INCH 
9Cccce 70 1010 LD  A,jH 
9CCD E607 1020 AND 7 
9CCF 2004 1030 JR NZ,CONT 
9cD1 7C 1040 LD AH 
9C02 D608 1050 suB 8 
9CD4 67 1060 LO HA 
9CD5S 10EF 1070 CONT DJNZ BLANK 
9CD7 C9 1080 RET 

1090 END 


Movimiento de un Bloque de Pantalla hacia la Izquierda 


La rutina para mover un bloque hacia la izquierda (y hacia 
la derecha) funciona de la misma forma que hacia arriba y 
hacia abajo, la rutina crea el efecto con algunas diferen- 
cias. Esto se debe principalmente, a que el movimiento hori- 
zontal es opuesto al movimiento vertical de las dos rutinas 
anteriores. 


El formato es exactamente el mismo: 


CALL 40000,L,R,U,D 


1 ” SCROLL DE UN BLOQUE HACIA LA IZQUIERDA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40271 

30 READ a$: POKE n, VAL ('£'""+a$) 
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40 NEXT 

50 DATA DD,6E,02,DD,66,06,2D,25,DD,7E 

60 DATA 04,94,4F,DD,7E,00,95,57,CD,1A 

70 DATA BC,3E,00,81,10,FD,47,CD,11,BC 

80 DATA DA,FA,9C, 28, 48,DD,6E, 02,DD,66 

90 DATA 04,2D,25,C5,CD,1A,BC,C1,0E,08 

100 DATA C5,E5,B7,CB,16,F5,7D,2D,B7,20 
110 DATA 0A,7C,25,E6,07,20,04,7C,C6,08 
120 DATA 67,F1,10,EB,E1,7C,C6,08,67,C1 
130 DATA 0D,20,DF,7C,D6,40,67,7D,C6,50 
140 DATA 6F,30,0A,24,7C,E6,07,20,04,7C 
150 DATA D6,08,67,15,20,C6,C9,05,D5,0E 
160 DATA 08,C5,E5,CB, 26,5D, 54,2C,20,0A 
170 DATA 24,7C,E6,07,20,04,7C,D6,08,67 
180 DATA 1A,CB,26,38,04,CB,A7,18,02,CB 
190 DATA E7,CB,66,28,02,CB,C7,12,10,DD 
200 DATA CB,A6,E1,7C,C6,08,67,C1,0D,20 
210 DATA CE,7C,D6,40,67,7D,C6,50,6F,30 
220 DATA 0A,24,7C,E6,07,20,04,7C,D6, 08 
230 DATA 67,D1,15,20,B3,C9,05,D5,0E,08 
240 DATA C5,E5,C5,5D,54,2C,20,0A,24,7C 
250 DATA E6,07,20,04,7C,D6,08,67,7E,1F 
260 DATA 4fF,1A,17,17,06,04,17,CB,21,CB 
270 DATA 21,17,10,F8,12,C1,10,DC,7E,17 
280 DATA 06, 04,07,CB,27,10,FB,77,E1,7C 
290 DATA C6,08,67,C1,0D,20,C7,7C,D6,40M 
300 DATA 67,7D,C6,50,6F,30,0A4,24,7C,E6 
310 DATA 07,20,04,7C,D6,08,67,D1,15,20 
320 DATA AC,C9 


Como en las anteriores, L es izquierda, R derecha, U arri- 
ba y D abajo. Como en las otras rutinas, una simple CALL ha- 
ce un movimiento de un solo punto, por lo que es necesario 
un bucle si quiere mover más puntos. Esta rutina también 
funciona en los tres modos de pantalla, como la de 
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Movimiento de un bloque de pantalla hacia la Izquierda. 


0001 ; <S£POLL ELOQUE IZQUIERDA 
0002 ; 
9c4u 0en1a OPG. 40400 
BC1A 0020 CHEPOS DEFL 08C1AH 
BC11 0070 SZ2MODE CEFL Q0EC11H 
9240 ODEEVZ Qas40 LO Lo 014) 
9047 DOGEÉNA uasa LD Hi IE) 
9C4€. 2D aaca DES» E 
SCA. ZE 2070 DEC H 
9C42 DOT7EQ4 desa LD A, (1:+4) 
9C4E 24 Qasa <UB  H 
9C4ro 4F v100 LD CA 
9C4D CO7EDO q110 LD A, (Ix+0) 
9coa 23 01:20 <De  L 
9031 3% e1za LD D,A 
9052 CDIAEC d1i4a CALL CHPPOS 
9C37 TE00 u130 LD AQ 
aca? 21 0160 CHPLITO ADD  A,£ 
9COg 10FD 0170 DJNZ CHPLUID 
9CS5A 47 area LD B,A 
SCS CD11EC v190 CALL SCMAODE 
9CTE DAFASLC 0200 JP C,MODEO 
9cé! 23848 0210 JR 2,MODE 1 
9C67 DDOGEQUZ a220 LD L, (1X+2) 
9Céót DDE¡SO4 270 LD H, (1X+4) 
9CER 2D 0240 DEL L 
9CEA 25 02534 DEC H 
9CEB 23 Qq260 PusH Ec 
9C6fL ECDIABC q270 CALL CHPPOS 
9cér “1 0289 POP. ec 
9C70 QUEDO 0290 ROLI2 LD c,8 


9C72Z 
9C73 
9C74 
9C75 
9077 
9078 
9C79 
9C7A 
9C7B 
9C7D 
9CTE 
9Cc7F 
9C81 

9C83 
9C84 
9C86 
9C87 
9Cc88 
9C8A 
9C8B 
9c8.e 
9C8E 
9C8F 
9C90 
9C91 

9C93 
9C94 
9C96 
9C97 
9098 
9C9IA 
9C9B 
9C9D 
9CIE 


200A 


EG07 
2004 


cos 
67 
F1 
10EB 
El 
70 
co608 
67 
c1 
0D 
20DF 
7C 
D640 
67 
7D 
c650 
6F 
300A 
24 
7C 


0300 
0310 
0320 
033 

0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 


LINEZ 


BYTEZ 


Ok 2 


PUSH BC 
PUSH HL 

0R A 

PL (HL) 
PUSH AF 

LO AL 
DEC 

OR 

JR NZ,Ok2 
LO AH 
DEC H 

AND 7 

JR NZ,OKZ 
LO AH 
ADO A,8 

LO HA 
POP AF 
DJNZ BYTEZ 
POP HL 

LO AH 
ADO A,8 

LO HA 
POP BC 

Dec Cc 

JR NZ,LINEZ 
LO AH 
suB 64 

LO HA 
LOA L 
ADO A,80 
LD L,A 

JR NC,DONEZ 
INCH 

LO AH 
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EG07 
2004 
7C 
D608 
67 
15 
20C6 
co 
05 
DS 
0E£08 
[e] 
ES 
CcB26 
5D 
54 
2C 
2004 
24 
7C 
EG607 
2004 
7C 
D608 
67 
1A 
cB26 
3804 
CBA7 
1802 
CBE7 
cB66 
2802 
CcBc7 


0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 


DONEZ2 


MODE1 


ROonW1 


LINE1 


BYTE1 


OK1 


SETBIT 
BITOK 


7 

NZ, DONEZ 
AH 

8 

H,A 

D 

NZ), ROWZ 


NZ, OK1 
AH 

8 

HA 

A, (DE) 
(HL) 
C,SETBIT 
4,A 
BITOK 
4,A 

4, (HL) 
Z,BITSET 
0,A 


9CD3 
9CD4 
9CD6 
9CD8 
9CD9 
SCDA 
9CDC 
9CDD 
9CDE 
9CDF 
9CE1 

9CEZ 
9CE4 
9CES 
9CE6 
9CE8 
9CE9 
9CEB 
9cCEc 
9CED 
9CEF 
9CcF1 

9cF2 
9CF4 
9CcFS 
9cr6o 
9CcF7 
9CcF9 
9CFA 
9CFB 
9cre 
9CFE 
9CFF 
9D00 


12 
10DD 
CBA6G 
El 
7C 
coó08 
67 
c1 
0D 
20CE 
7C 
D640 
67 
7D 
Ccóo50 
6eF 
300A 
24 
7C 
E607 
2004 
7C 
D608 
67 
D1 
15 
20B3 
co 
05 
DS 
0E£08 
cs 
ES 
cs 


0980 BITSET LD 


0990 DJNZ 
1000 RES 
1010 POP 
1020 LD 
1030 ADD 
1040 LD 
1050 POP 
1060 DEC 
1070 JR 
1080 LD 
1090 suB 
1100 LD 
1110 LD 
1120 ADD 
1130 LD 
1140 JR 
1150 INC 
1160 LD 
1170 AND 
1180 JR 
1190 LD 
1200 suB 
1210 LD 
1220 DONE1 POP 
1230 DEC 
1240 JR 
1250 RET 
1260 MODEO DEC 
1270 ROWO PUSH 
1280 LD 
1290 LINEO PUSH 
1300 PUSH 
1310 BYTEO. PUSH 


(DE),A 
BYTE1 
4, (HL) 
HL 


NZ,LINE1 
AH 

04 

HA 

A,L 

A,80 
L,A 

NC, DONE1 
H 

AH 

> 

NZ, DONE 1 
A,H 

8 

HA 

DE 

D 

NZ, ROW1 
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9D01 
9D02 
9D03 
9D04 
9D06 
9D07 
9D08 
9DOA 
9Dec 
9D0D 
9DO0E 
9D10 
9D11 

9D12 
9D13 
9D14 
9D15 
9D16 
9018 
9D19 
9D1B 
9D1D 
9D1E 
9D20 
9D21 

9D22 
9D24 
9d25 
9D26 
9D28 
9D29 
9D2B 
9D2D 


9DZE 
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0604 
17 
cB21 
cB21 
dez 
10F8 
12 
c1 
10DC 
TE 
17 
0604 
07 
CB27 
10FB 
77 


El 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 


1650 


0K0O 


NXTROT 


LSTBYT 


LD 
LD 
INC 
JR 
INC 
LD 
AND 
JR 
LD 
suB 
LD 
LD 
RRA 
LD 
LD 
RLA 
RLA 
LD 
RLA 
SLA 
SLA 
RLA 
DJNZ 
LD 
POP 
DJNZ 
LD 
RLA 
LD 
RLCA 
SLA 
DJNZ 
LD 


POP 


Es E 
D,H 

L 

NZ, OK0O 
H 

AH 

7 

NZ, OK0 
AH 

8 


NXTROT 
(DE),A 
BC 
BYTEO 
A, (HL) 


B,4 


A 
LSTBYT 
(HOOD ,A 


HL 


9D2F 7€ 1660 LD A,H 


39030 có08 1€70 ADD A,8 
9D32 67 1680 LD HA 
9D33 C1 1690 POP. B£ 
9D734 0D 1700 DEC € 
9D335 2007 1710 JE NZ,LINEO 
9D37 7C 1720 LD AH 
9D38 DE40O 1730 SsuB  €4 
9D3A 67 1740 LD H,A 
9D3B 7D 1750 LD A,L 
39D3C CéE50 170 ADD A,80 
9D3E 5F 1770 LD L,A 
9D3F 2300A 1780 JR NC, DONEO 
9D41 24 1790 INC H 
9D42 72 1800 LD AH 
9047 E607 1810 AND 7 
9D45 2004 1820 JR NZ, DONEQ 
9D47 7C€ 1870 LD A,H 
9D48 D608 1840 suB 8 
9D4A 67 1850 LD HA 
9D4B D1 1860 DONEO POP DE 
9D4C 15 1270 DEC D 
9D4D 20AC 1880 JR NZ, ROLA 
9D4F C9 1890 RET 
1900 END 


Movimiento de un Bloque de Pantalla hacia la Derecha 


Una vez vistas las otras rutinas de movimiento de bloques 
de pantalla hacia arriba, hacia abajo y hacia la izquierda, 
no es muy difícil saber cómo funciona esta rutina. 


Una vez más. el formato que se usa es exactamente el mismo 
que en las rutina anteriores: 
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CALL 40000,L,R,U,D 


Y como en las otras rutinas, 
miento del bloque de pantalla 


una simple CALL hará un movi- 
un solo punto hacia la dere- 


cha, por lo que será necesario un bucle para obtener movi- 
mientos más amplios. 


1 
10 
20 
30 
40 
50 
60 
70 
80 
90 
:100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
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? SCROLL DE UN BLOQUE HACIA LA DERECHA 
SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 244 


FOR n 
READ 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


=40000 TO 40277 
a$: POKE n, VAL ("£'+a$) 


DD,6E,02,DD,66,04,2D,25,7C,C6 
02,DD,96,06,4F,DD,7E£,Q00,935,57 
CD,1A,BC,2B,3E,00,81,23,10,FC 
47,CD,11,BC,DA,FE,9C,28,46€,DD 
6E,02,DD,66,06,2D,25,C5,CD,1A 
BC,C1,0E,08,C5,ES,B7,CB,1E,FS 
2C,20,0A,24,7C,E6,07,20,04,7C 
D6,08,67,F1,10,ED,E1,7C,C6,08 
67,C1,0D,20,E1,7C,D6,40,67,7D 
C6,50,6F,30,0A,24,7C,E6,07,20 
04,7C,D6,08,67,15,20,C8,C9,05 
DS, 0E, 08, C5,E5,CB,3E,5D,54,7D 
2D0,B7,20,0A4,7C,25,E6,07,20,04 
7C,C6,08,67,1A,CB,3E,38,04,CR 
9F,18,02,CB,DF,CB,5E£,28,02,CB 
FF,12,10,D0B,CB,9E,E1,7C,C6,08 
67,C1,0D,20,CC,7C,D6,40,67,7D 
C6,50,6F,30,0A,24,7C,E6,07,20 
04,7C,D6,08,67,D1,15,20,B1,C9 
05,05,0E, 08, C5,ES,C5,5D,54,7D 
2D,B7,20,0A,7C,25,E6,07,20,04 
7C,C6,08,67,7E,17,4F,1A,1F,1F 


3040 
3C1A 
3011 
3040 
3043 
3046 
3047 
3048 
3049 
3C4B 
)C4E 
3C4F 
3052 
3053 
3054 
3057 
3058 
IC5A 
3C5B 
3C5C 


DATA 06,04,1F,CB,39,CB,39,1F,10,F8 
DATA 12,C1,10,DA,7E,1F,06,04,0F,CB 
DATA 3F,10,FB,77,E1,7C,C6,08,67,C1 
DATA 0D,20,C5,7C,D6,40,67,7D,C6,50 
DATA 6F,30,0A,24,7C,E6,07,20,04,7 

DATA D6,08,67,D1,15,20,AA,C9 


DD6E02 
DD6604 
2D 

25 

70 
c602 
DO9606 
4F 
DD7E00 
95 

57 
CD1ABC 
28 
3E00 
81 

23 
10FC 


0001 
0002 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 


; SCROLL BLOQUE DERECHA 


, 


CHRPOS 
SCMODE 


CHRUWID 


ORG 
DEFL 
DEFL 
LD 
LD 
DEC 
DEC 
LD 
ADD 
suB 
LD 
LD 
suB 
LD 
CALL 
DEC 
LD 
ADD 
INC 
DJNZ 


40000 
08C1 AH 
0B8C11H 
L, (1X+2) 
H, (1X+4) 
L 

H 

A,H 

AZ 
(1X+6) 
CA 

A, (IX+0) 
L 

D,A 
CHRPOS 
HL 

A,0 

A,C 

HL 
CHRWID 
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9CSE 
9csrF 
9C62 
9C65 
9C67 
9C6A 
9C6D 
9C6E 
9cor 
9C70 
9C73 
9C74 
9C76 
9077 
9C78 
9079 
9C7B 
9C7C 
9C7D 
9C7F 
9C80 
9C81 
9C83 
9085 
9C86 
9C88 
9C89 
9CB8A 
9c8c 
9C8D 
9C8E 
9090 
9C91 
9C92Z 
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47 
cpD11BCc 
DAFE9C 
2846 
DD6E02 
DD6606 
20 

25 

Cs 
CD1ABC 
Cc1 
0E08 
[e] 

ES 

B7 
cB1E 
FS 

2C 
200A 
24 

7C 
E607 
2004 
TE 
D608S 
67 

F1 
10ED 
El 

ZE 
có08 
67 

c1 

0D 


0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 


ROWZ 
LINEZ 


BYTEZ 


0OK2 


CALL 


B,A 
SCMODE 
C,MODEO 
Z,MODE1 
L), (1X+2) 
H, (1X+6) 
le 

H 

Bc 
CHRPOS 
Bc 

c,8 

BC 

HL 


BYTEZ 
HL 
AH 


3093 
3095 
3096 
3098 
3099 
3C9A 
3C09C 
3C9D 
3C9F 
3CA0 
23CA1 

3CA3 
CAS 
23CA6 
3CA8 
3CA9 
3CAA 
23CAC 
3CAD 
CAE 
3CAF 
>CB1 

23CB2 
3CB3 
CBS 
>CB6 
3CB7 
>CB8 
3CB9 
CBA 
>CBC 
>CBD 
>CBE 
3CC0 


20E1 
7C 
D640 
67 
7D 
c650 
6F 
300A 
24 
7€ 
EG607 
2004 
7C 
D608 
67 
15 
20C8 
Cc9 
05 
DS 
0E08 
Ca 
ES 
CB3E 
5D 
54 
7D 
2D 
B7 
Z00A 
7C 
25 
EG607 
2004 


0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
2650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 


DONE2 


MOCE1 


Roi 


LINE1 


BYTE1 


DEC 


DEC 
AND 


NZ),LINEZ 
AH 

04 

HA 

A, L 

A,80 


.L,A 


NC, DONEZ 
H 

A,H 

> 

NZ, DONEZ 
AH 

8 

HA 

D 

NZ , ROWZ 


NZ, OK1 
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9cc2 
9CcC3 
9ccs 
9cce 
9cc7 
9cc9 
9ccB 
9CCD 
9ccF 
9CD1 

9CD3 
9CD5 
9CD7 
9CD8 
OCDA 
9cDc 
9CDD 
OCDE 
9CEO 
OCE1 

9CE2 
9CE3 
9CES 
9CE6 
9CE8S 
9CE9 
OCEA 
9CEC 
9CED 
OCEF 
9cFO 
9cF1 

9CF3 
9CcFS 
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7C 
c608 
67 
1A 
CB3E 
3804 
cBoF 
1802 
CBDF 
CBSE 
2802 
CBFF 
12 
1008 
CBOE 
El 
7C 
co08 
67 
c1 
0D 
z0cc 
7C 
D640 
67 
7D 
Cc650 
6F 
300A 
24 
7C 
E607 
2004 
7C 


0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


OK1 


SETBIT 
BITOK 


BITSET 


LD 
ADD 
LD 
LD 
SRL 
JR 
RES 
JR 
SET 
BIT 
JR 
SET 
LD 
DJNZ 
RES 
POP 
LD 
ADD 
LD 
POP 
DEC 
JR 
LD 
suB 
LD 
LD 
ADD 
LD 
JR 
INC 
LD 
AND 
JR 
LD 


A,H 

A,8 

HA 

A, (DE) 
(HL) 
C,SETBIT 
3,A 
BITOK 
3,A 

3, (HL) 
Z,BITSET 
7,A 
(DE),A 
BYTE1 

3, (HL) 
HL 

AH 


NZ,LINE1 
AH 

04 

HA 

A,L 

A,8Q 
L,A 

NC, DONE 1 
H 

AH 

7 

NZ, DONE 1 
A, H 


9cFo 
9CcF8 
9CF9 
9CFA 
9CFB 
9CFD 
9CFE 
9crFF 
9D00 
9D02 
9D03 
9D04 
9D05 
9D06 
9D07 
9D08 
9D09 
9DOA 
9D0c 
9D0D 
9D0E 
9D10 
9D12 
9D13 
9D15 
9D16 
9D17 
9D18 
9D19 
9D1A 
9D1B 
39D1cC 
9D1E 
9D1F 


D608 
67 
D1 
15 
2081 
co 
0s 
DS 
0E08 
cs 
ES 
cs 
5D 
54 
7D 
2D 
87 
2004 
70 
25 
E607 
2004 
70 
ceos 
67 
7E 
17 
4F 
1A 
1F 
1F 
0604 
1F 
CB39 


1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


DONE1 


MODEO 
ROWa 


LINEO 


BYTEO 


oKoO 


NXTROT 


suB 
LD 
POP 
DEC 
JR 
RET 
DEC 
PUSH 
LD 
PUSH 
PUSH 
PUSH 
LD 
LD 
LD 
DEC 
OR 
JR 
LD 
DEC 
AND 
JR 
LD 
ADD 
LD 
LD 
RLA 
LD 
LD 
RRA 
RRA 
LD 
RRA 
SRL 


NZ, ROLJ1 


NZ, OK0O 
A,H 
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148 


CB39 


10F8 


10DA 


0604 


CcB3F 


10FB 


7C 
c608 


1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 


LSTBYT 


SRL 
RRA 
DJNZ 
LD 
POP 
DJNZ 
LD 
RRA 
LD 
RRCA 
SRL 
DJNZ 
LD 
POP 
LD 
ADD 
LD 
POP 
DEC 
JR 
LD 
suB 
LD 
LD 
ADD 
LD 
JR 
INC 
LD 
AND 
JR 
LD 
suB 
LD 


Cc 


NXTROT 
(DE),A 
BC 

BYTEO 
A, (HL) 


B,4 


A 
LSTBYT 
(HL),A 
HL 

A, H 


NZ,LINEO 
AH 

04 

HA 

A,L 

A,80 

L,A 

NC, DONEO 
H 

AH 

7 

NZ, DONEO 
AH 

8 

HA 


2D51 D1 
2052 15 
2D53 20AA 
3D95 C9 


1910 DONEO 
1920 
1930 
1940 
1950 


POP 
DEC 
JR 

RET 
END 


DE 
D 
NZ, ROJO 
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ONCE - Acordes RSX 


El Amstrad está equipado con una facilidad maravillosa que 
se puede usar para crear comandos nuevos que son aceptados 
como palabras clave por el BASIC. Esta facilidad se conoce 
como REX y esta rutina la usa para crear 24 comandos nuevos. 
Cada uno de estos comandos ejecuta un acorde determinado a 
través del sintetizador de sonido del Amstrad. 


Un acorde, como seguramente sabrá, es una combinación de 
varias notas musicales en armonía, que pueden ser tocadas 
simultáneamente. Tecleando CALL 40000, tendrá acceso a 24 de 
los acordes más populares, que aparecen listados más abajo. 
(Tenga en cuenta que no hay espacios entre las partes de los 
nuevos comandos y que *$** equivale a sostenido y b. a bemol. 


Nuevo Comando Acorde 
¡ CMAYOP C Mayor 
¡ CMENOR C Menor 
¡ CSMAYOR CH Mayor o Db.Mayor 
:; CSMENOR Cé$+ Menor o Db.Menor 
¡ DMAYOP D Mayor 
¡ DMENOR D Menor 
'¡ DSMAYOR DH Mayor o Eb.Mayor 
+; DSMENOR DH Menor o Eb.Menor 
¡EMAYOR E Mayor 
' EMENOR E Menor 
¡FMAYOR F Mayor 
¡ FMENOR F Menor 
¡FSMAYOR FR Mayor o Gb.Mayor 
¡ FSMENOR FH Menor o Gb. Menor 
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¡ GMAYOFR G Mayor 


y GMENOR G Menor 
' GSOMAYOR GH Mayor O Ab. Maycr 
' GSMENORP GR Mencr oO Ab. Menor 
: AMAYOR A Mayor 
' AMENCP A Menor 
; ASMAYOR AR Mayor a Bb.Mavyor 
¡ ASMENOFR A$+ Mencr o Bb. Henar 
¡BMAYOP B Mavor 
¡BMENOR B Menor 


Todos los acordes se componen de tres notas, y usan los 
tres canales de sonido del Amstrad para producirlos. 


Para obtener un acorde, solamente debe teclear uno de los 
comandos. Es una buena idea poner el control de volumen a 
unas tres cuartas partes de su recorrido, ya que la salida 
de sonido =s demasiado potente para el altavoz intearado, 
como para reproducir el sonido sin alao de distorsión. 


1 s ACOFDES RX 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTEP 240u 
Z0 FOP n=4000%8 TO 40617 

30 FEAD a: POKE nm, VALI("S"+ago 

40 NEXT 

50 DATA 01,4A,9C,21,94,9,C0D,01,BC,c2 
60 DATA 98,9C € 

70 DATA 9D,C3,73F,9D,C3,43,9D,C3,47,%9D 
80 DATA C3,4B,9D,C3,4F,9D,03,93,9D,C7 
390 DATA 57,9D,C3,5B, 9D,C3,5F,9D,C2,63 
100 DATA 9D,03,67,9D,C3,€6B,39D,C3,6F,9D 
110 DATA C3,73,9D,C3,77,9D,C€C3,7B,9D,C3 
120 DATA 7F,90,C7,83,79D,C03,87,9D,C3,88B 
130 DATA 9D,C3,8F,9D,W0,00,00,00,43,4D 


N. +=: 18 
Sxos8s 


d + 
aa 


QU A Q A WA du 
pa 


o 
==) 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 72 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


41,59,4F,DZ2,43,4D,43,4E,4F,DZ 
43,53,40D,41,59,4F,D2,473,53,40D 
49,4E,4F,D2,44,4D,41,59,4F,D2 
44,4D,45,4E,4F,D2,44,53,40D,41 
59,4F,0D2,44,573,40D,45,4E,4F,D= 
43,4D,41,59,4F,D2,459,4D,43,4E 
4F,D2,46,4D,41,359,4F,D2Z,46,4D 
45,4E,4F,D2,46,53,4D,41,399,4F 
D2,40,53,4D,45,4E,4F,D2,47,4D 
41,59,4F,D2,47,4D,45,4E,4F,D2 
47,33,4D,41,599,4F,D2,47,93,4D 
45,4E,4F,D2,41,4D,41,59,4F,DZ2Z 
41,4D, 45,4E,4F,D2,41,53,4D,41 
59, 4F,DZ,41,53,4D,45,4E,4F,D2 
42,4D,41,59,4F,D2),42,4D,45,4E 
4F,D2,00,1£.00,18,50,1E,06,18 
58,1E£,0C,18,54,1E,12,18,50,1E 
12,18,4C,1E,1E,18,48,1E,24,18 
44,1E,2A,18,40,1E€,30,1€,30,1E 
36,198,33,1E,3C0,18,34,1E,42,18 
730,1E£,48,18,2C,1E,4E,18,28,1E 
54,18,24,1E,5A4,18,20,1E,60,18 
10,1£,66,18,18,1E,6C,18,14,1E 
,18,10,1£,78,18,0C,1E,7E,18€ 
08,1E,84,18,04,1E£,8A,18,00, 21 
1A4,9E,16,00,19,5E,23,56,23,ED 
53,02, 9E,5E,23,56,23,ED,53,0B 
9E, 5E, 23,56,ED,593,14,9E,FS5,B7 
28,03,DD,7E,04,32,00,9E,32,09 
39E,32,12,9E,B7,28,12,CD,C2,BcC 
D0,23,23,7E,B7,28,08,CB,7F,20 
04,3E,00,18,02,3E,0F,32,05,9E 
32,0E,9E,32,17,9E,F1,FE,02 

A7,BC,21,FF,9D,CD,AA,BC,30,FB 
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480 DATA 21,08,9E,CD,AA,BC,30,FB,21,11 
490 DATA 9E,CD,AA,BC,30,FB,C9,31,00,00 
500 DATA 00,00,00,00,00,00,2A,00,00,00 
510 DATA 00,00,00,00,00,1C,00,00,00,00 
520 DATA 00,00,00,00,7E£,02,DE,01,7B,01 
530 DATA 7E,02,DE,01,92,01,5A,02,C3,01 
540 DATA 66,01,54,02,C3,01,7B,01,A4,02 
550 DATA 38,02,AA,01,38,02,4A,01,66,01 
560 DATA 7E,02,18,02,92,01,A4,02,18,02 
570 DATA 92,01,54,02,FA,01,78,01,7E,02 
580 DATA FA,01,7B,01,38,02,DE,01,66,01 
590 DATA 54,02,DE,01,66,01,A4,02,18,02 
6040 DATA C3,01,44,42,38,02,03,01,7E,02 
610 DATA FA,01,4A,01,7E,02,18,02,AA,01 
620 DATA 54,02,DE,01,92,01,S5A,02,FA, Q1 
630 DATA 92,01,38,02,03,01,7B,01,38,02 
640 DATA DE,01,786,01,18,02,AA4,01,66,01 
650 DATA 18,02,C3,01,66,01,44,02,FA,Q1 
660 DATA 92,01,A4,02,FA,01,AA,01 


Envolventes 


Veamos las partes más complejas del uso de estos tres a- 
cordes, usándolos con envolventes de sonido. Si 'taca' el a- 
corde básico sin parámetros adicionales, obtendrá un sonido 
básico similar al de un acorde de *órgano'. La rutina pone 
automáticamente el comando con la envolvente 0, que hace que 


cada acorde dure unos dos segundos. 


Es posible crear envolventes definidas por usted mismo, 
que se pueden incorporar dentro del sonido del acorde. Para 
hacerlo, prepare una envolvente de sonido mormal (si no está 
familiarizado con las facilidades de sonido del Amstrad, mi- 
re en el manual del usuario). A continuación, asigne un nú- 
mero de envolvente al fimal del comando del acorde. Por e- 
jemplo, si su envolvente era ENV'  1,3,4,1,15,-1,10 con el 
primer número indicando el número de la envolvente, debe a- 
MSadir un *1* al final del comando de acorde. ej !CMAYOR, 1. 


El volumen inicial del acorde depende de la envolvente que 
se use. El programa lo fija de la siguiente forma. Si el ta- 
maño del paso de la primera sección de la envolvente que se 
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está usando es positivo (excluido el 0), el volumen inicial 
se pone a 0. Si es negativo, el volúmen inicial se pone al 
valor máximo, 15. Esto da a la envolvente el mayor rango de 
volúmen con que puede trabajar. 


Si usa un paso de envolvente de 0, puede hacer que el a- 
corde dure todo lo que usted quiera. Por ejemplo: 


ENV 2,10,0,100 
¡CMAYOR, Z 


Esto toca el acorde € Mayor durante diez segundos mientras 
que ENV 2,r,,4,100 tocará el acorde durante n segundos. 


Cuando se ejecutan los comandos, la rutina esperará hasta 
que las tres memorias intermedias de sonido estén —dispeni- 
bles, antes de añadir las notas que preparan el acorde en 
las colas de sonido. Si quiere limpiar las colas de sonido 
inmediatamente después de que el comando sea ejecutado, debe 
añadir un parámetro extra antes del número de envolvente. 


ENV 4,15,-1,20 


¡CMAYOR, 0,4 
¡DMAYOR, 0, 4 
En este ejemplo, solamente sonará el acorde D Mayor, ya 
que el primer acorde se cortará tan pronto como empiece. Se 
puede usar cualquier valor para este parámetro extra. La 


rutina busca solamente la presencia de un parámetro extra. y 
no el valor de ese parámetro. 


Obviamente, usted no estará muy dispuesto a perder su pri- 
mer acorde. Puede evitar esto poniendo un bucle de espera 
entre cada acorde. A continuación tenemos un ejemplo de como 
hacerlo: 


ENvV 5,9,0,100 

'¡ EMAYOR,0,5 

FOR T=1 TO 300: NEXT 
: CMAYOR, 0,5 

FOR T=1 TO 250: NEXT 
: DMAYOR, 0,5 


9c40Q 
BCA7 
BCAA 
BCCZ 
BCD1 
39040 
90473 
3046 
9049 
9C4A 
94. 
9C4F 
9C52 
9039 
9C58 
9C5B 
9C5E 
9Cc61 
9C64 
9c67 
9COA 
9C6D 
3070 
9C73 
3Cc76 
39079 
9C7c 
9Cc7F 
9C82 
93C85 
9088 
9C8B 
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014A9C 
21949 
CDD1BC 
ES 


C3479D 
C34B9D 
C34F9D 
C3539D 
2339790 
CI53B9D 
C35FOD 
C3ó639D 
C3679D 
C36B9D 
C36F9D 
C37739D 
C3779D 
C378B9D 
C37F9D 
C3839D 
C3879D 


0001 
Quaz 
20010 
vaza 
0030 
0040 
0050 
aV650n 
0070 
Yesa 
vaso 
qiaR 
q110 
0120 
a130 
q140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
19294) 
0230 
0240 
0250 
0260 

270 
0280 
0290 
0300 
0310 
0320 


SNDRES 
SUMSND 
AMPDIF 
LOGEXT 


TABLA 


ACORDES 


OPS 
DEFL 
DEFL 
DEF 
DEFL 
Lo 
LD 
CALL 
PET 
DEF L 
JP 
JP 
JyP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 


40000 
ABCA7TH 
VEBCAAH 
UBCCIH 
DECDIH 
EC, TABLA 
HL) ESPAL 
LOGEXT 


NOMBTE 
CMA Y 
CHEN 
CSMA Y 
CSMEN 
DMAY 


FMEN 
SMAY 
FSMEN 
GMAY 
GMEN 
GSMAY 
GSMEN 
AMAY 
AMEN 
ASMA Y 
ASMEN 


9C8E 
9Cca1 
9C94 


9C98 
9C9D 
9CIE 
9CA3 
S9CA4 
SCAA 
S9CAB 
9CB1 
9CB2 
9CB7 
9CB8 
9CBD 
9CBE 
9CC4 
9CCS 
9CCE 
jeje 
9CD1 
9CDZ 
9CD7 
9CD8 
9CDD 
SCDE 
9CES 
9CE4 
SCEA 
9CEB 
9cF1 
9CFZ 
9CF7 


C38B9D 
C38F9D 


20 
00 


DZ 


D2 


D2 


DZ 


DZ 


DZ 


00 00 


Q330 
0340 
0350 


0360 
Q370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0520 
0574 
2600 
v0610 
Q620 
0630 
0640 
0650 


ESPAC 


NOMBTB 


JP 
JP 
DEFB 


DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEF NM 
DEFB 
DEFI 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEF MI 
DEFB 


BMAY 
BMEN 
0,0,0,0 


"“CMAYO" 

"R"+80H 
"CMENO” 

"R"+80H 
"COMAYO" 
"R"+80H 
"CSMENO" 
"rR"+S80 

"DMAYO" 

"Pp +80H 
“"DMENO" 
"eRU+2g0H 
"DSMAYO" 
"eR+S0hH 
"DSMENO" 
"RU +280H 
"EMAYO" 

"R+SaH 
"EMENO" 

"R"+80H 
"FMAYO" 

"R"+80H 
“FMENO" 

"R+80H 
"FSMAYO" 
"R"+80H 
"FSMENO" 
"R+80H 
"GMAYO" 

"R"+80H 
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DZ 


DZ 


v066u 
0670 
0680 
n69. 
0700 
0710 
0720 
0730 
074 
0750 
0760 
0770 
0780 
u790 
va00 
0810 
0820 
0230 
qe44u 
085 

0860 
v870 
vs8sa 
ve90n 
0900 
0910 
vua20a 
0930 
0940 
a950 
0960 
0970 
0980 
0990 


CMAY 


CMEN 


ECSMAY 


CSMEN 


DMA Y 


DMEN 


DSMAY 


DSMEN 


DEFM 
DEFB 
DEFI 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEF NM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFBE 
DEFM 
DEFE 
DEFE 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 


“"GMENO" 
"RU+S0H 
"GSMAYO"" 
"RU+S0H 
"GSMENO" 
"R"+80H 
“"AMAYO"” 
"RU*S0H 
“"AMENO"” 
“"R"+8u0H 
"ASMAYO"” 
"Ru+*280H 
"ASMENO" 
"RU*Bu0H 
“"BMAYO" 
"RU+SOH 
"BMENO" 
"PRU+S0H 
4) 

E,O 
ACORD 
E,J6 
ACORD 
ESTE 
ACORD 
E,18 
ACORD 

E, 24 
ACORD 
E,30 
ACORD 
E,36 
ACORD 

E, 42 


23D51 
3D593 
23D55 
23D97 
2D59 
2D59B 
2D5D 
3D5F 
2D61 
3D63 
2D65 
2067 
23D69 
2D6B 
2D6D 
DOF 
2D71 
2D73 
2D75 
2D77 
3D79 
3D07B 
3D07D 
3D7F 
3D81 
3D83 
2D85 
)D87 
3D89 
3D8B 
3D8D 
3D8F 
3D91 
)3D93 


1840 
1E30 
1830 
1E36 
1838 
1E3C 
1834 
1€42 
1830 
1E48 
1820 
1E4E 
1828 
1E54 
1824 
LESA 
1820 
1E60 
181C 
1E66 
1818 
1E6cC 
1814 
1E72 
1810 
1E78 
180€ 
1E7€ 
1808 
1E84 
1804 
1E8A 
1800 
211A9€ 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
11530 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 


1330 


EMAY 


EMEN 


FMAY 


FMEN 


FSMAY 


FSMEN 


GMAY 


GMEN 


GSMAY 


AMAY 


AMEN 


ASMAY 


ASMEN 


BMAY 


BMEN 


ACORD 


JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 


ACORD 
E,48 
ACORD 
E, 54 
ACORD 
E,60 
ACORD 
E,66 
ACORD 
E,72 
ACORD 
E,78 
ACORD 
E, 84 
ACORD 
E, 90 
ACORD 
E, 96 
ACORD 
E,102 
ACORD 
E,108 
ACORD 
E,114 
ACORD 
E,120 
ACORD 
E,126 
ACORD 
E,132 
ACORD 
E,138 
ACORD 
HL, DATOS 


9D96 
9D98 
9D99 
3IDIA 
9D9B 
SD9IC 
39D9D 
SDA1 
S9DAZ 
SDA3 
S9DA4 
S9DAS 


9DAS 


SDAA 
S9DAB 
S9DAL 
9DB0 
39061 
S9DB2 
9DB4 
S9DB7 


56 
Zo 
EDS30OZ29E 
5E 


7, 
El 


50 


za 


EDS3069E 


56 
EDS3149E 
FS 

B7 

2807 
DD7EGUA 


QDBA 32 


S9DBD 
S9DCa 
9Dc1 
9DC3 
9DC6 
3DCc7 
3DC8 
9DCO 
SDCA 
39DCB 
SDCD 
S9DCF 
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2812 


Da 


1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
15:20 
1530 
1540 
1550 
1560 
1570 
1580 
153590 
1500 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


PO 


NENYV 


LD 
ADD 
LD 
INC 
LD 
INC 
LD. 
LD 
INC 
LD 
INC 
LD 
LD 
INC 
LD 
LD 
PUSH 
or 
IP 
LD 
Lo 
Lo 
LD 
or 
JE 
CALL 
RET 
INC 
INC 
LD 
OR 
JR 
BIT 
JR 


D,0 

HL, DE 

E, (HL) 
HL 

D, (HL) 

HL 
(TONO1),DE 
Es SHE 

HL 

D, (HL) 

HL 
(TONOZ1, DE 
E, (HL? 

HL 

D, (HL) 
(TONOS, DE 
AF 

A 

Z, PONENV 
A) (IX+D) 
(ENV13>,A 
(ENVZ),A 
(ENVI,A 
A 

2), NEGTWO 
AMPDIP 

NC 

HL 

HL 

A, (HL) 

A 
Z,NEGTVO 
7,A 

NZ, NEGTVO 


9DD1 
9DD3 
9DDS 
3DD7 
SDDA 
9DDD 
SDEU 
ODE1 
S9DES 
SDEG6 
9DES 
S9DEL 
SDEE 
SDF1 
90F4 
9DF6 
9DFO 
SDFC 
9DFE 
SDFF 
39E00 


9E02 


9E05 


9E08 
9E09 


9E0B 


9E0E 


39E11 


3E00 
1802 
3E0F 
32057%E 
320E9E 
32179E 
F1 
FEDZ 
CCA7ec 
21FFSD 
CDAABC 
30FB 
21089E 
CDAABC 
30FB 
Ziti9E 
CDAABLC 
S30FB 


08 20 


00 0. 


00 00 


00 00 
10 


1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1750 
1804 
1810 
1820 
18730 
1540 


1900 


1940 


1950 


NEGTVO 
PONAMP 


ACOMP 


BCOMP 


ECCOMP 


SNC1 


ENvV1 


TONO1 


AMPL 1 


TONOZ 


AMPL2 


SND3 


LD 
JR 
LD 
LD 
Lo 
LD 
POP 
cP 
CALL 
LD 
CALL 
JR 
LD 
CALL 
JP 
LD 
CALL 
JP 
RETF 
DEFB 
DEFB 


DEFB 


DEFB 


DEFB 
DEFB 


DEFB 


DEFB 


DEFB 


AQ 
PONAMP 
A,1S3 


(AMPLID,A 


(AMPL)3,A 


(AMPL, A 


AF 

2, SNDFES 
HL, SND1 
SUMSND 
NC, ACOMP 
HL), SNDZ 
SUMSNO 
NC, BCOMP 
HL, SNDZ 
SUMSND 
NC), CCOMP 
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9E12 


9E14 


9E17 


SElA 


9E38 


QESE 


9E44 


SEGA 


9E530 


SEC 


9E68 
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ENV3 


TONO3 


AMPL 


DATOS 


DEFB 


DEFB 


DEFE 


DEF! 


DEFI 


DEF 


DEFUW 


DEFLI 


DEFUW 


DEFU 


DEF 


DEF 


DEF LI 


DEFLI 


DEFLJ 


DEF 


DEFUW 


0,0 


038,478,402 


602,451,3398 


602,451,379 


67338,536,402 


076,336,402 


502,506, 7379 


638,306,37%9 


602,478,2358 


6706,3306,451 


676,368, 451 


S9EGE 


9E74 


SE7A 


9E86 


9E8C 


9E9Z 


9E98 


9E9E 


S9EA4 


Organo 


7E02 2130 


FAQ01 AAQÍ1 


7E02 2140 


1802 AAQ1 
5A02 215 
DEV01 9201 


5SA0Z 2160 


FA01 29201 


3802 2170 


c30o1 7B01 


3802 2180 


DE01 7B01 


1802 2190 


AA01 6601 


1802 2200 


c30o1 6601 


A40Z 2210 


FA01 9201 


A40Z 2220 


FA01 AAQÍ 


de Acordes 


DEFUW 


DEF 


DEFW 


DEF 


DEFUW 


DEFLI 


DEF 


DEFW 


DEFUW 


DEFW 


END 


038,306, 4276 


902,478, 402 


502,506, 402 


568, 451,379 


568, 478,379 


536, 451,358 


676,506, 402 


676,306, 4276 


No podemos dejar esta rutina sin proporcionar un ' programa 


de órgano de acordes. 
IF INKEYS$="A'" 
gramas para controlar 


turales, 


Aquí tenemos el 


THEN ¡AMAYOR, 
interrupciones y envolventes. 
programa interpreta todos los acordes principales, 
agudas y graves. 


*teclado?: 


ul 


embargo, 


no usaremos líneas 
como hemos hecho con otros 


como 
pro- 

Nuestro 
notas na- 
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Y estas son las notas que representan: 


CH DR FR GR AR 


10 ENV 1,10,0,100 

20 DIM k(12):m=-1 

30 FOR n=0 TO 12:READ k (m) : NEXT 

40 n=0 

50 a=INKEY(k iín)) 

00 IF a=0 AND n=m GOTO 40 

70 IF a=0 GOTO 120 

80 n=n+1 

90 IF n<13 GOTO SQ 

100 SOUND 135,0,0,4:m=-1 

110 GOTO 40 

120 ON n+1 GOSUB 140,150,160,170,1£0,190,200,210, 
220,230,240,250,260 

130 m=n:50TO 40 

140 ¡CMAYOR, 0,1: RETURN 

150 ¡DMAYOR, 0,1: RETUPN 

160 ¡EMAYOP, 0,1: PETURN 

170 ¡FMAYOR, 0,1: RETURN 

180 ¡GMAYOR, 0,1: RETURN 

190 ¡;AMAYOR, 0,1: RETURN 

200 ¡BMAYOR, 0, 1: RETURN 

210 ¡CMAYOR, 0,1: RETURN 

220 ¡CSMAYOR, 0, 1: RETURN 

230 ¡DSMAYOR, 0, 1: RETURN 

240 ¡FSMAYOR, 0,1: RETURN 

250 ¡GSMAYOR, 0,1: RETURN 

260 ¡ ASMAYOR, 0, 1: RETURN 

270 DATA 67,59,58,50,51,43,42,35,65,57,49,48,41 
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DOCE - Compresores de Pantalla 


Estas dos rutinas de compresión de pantallas solamente 
funcionan en los modelos Amstrad que usan cinta. Debido a la 
dirección donde almacenan las pantallas comprimidas, los co- 
mandos de manejo de discos resultan afectados por lo que no 
es posible salvar el resultado de la compresión mas que a 
cinta. 


Compresor 1 


La pantalla del Amstrad se encuentra almacenada en 16k de 
memoria. Es mucha memoria RAM para almacenar lo que suele 
ser una simple imagen de pantalla. La mayoría de la pantalla 
se haya rellena de espacios en blanco y tiene el valor 0. U- 
na sección de pantalla de 20 puntos se representa en la RAM 
como veinte ceros. Se desperdicia gran cantidad de memoria. 
Nuestra rutina compresora hace un mejor uso de la memoria de 
la pantalla. 


Este programa mira primero una sección de la RAM de panta- 
lla. Si tiene un valor distinto de cero, lo almacena tal co- 
mo está, sin alteraciones. Si el valor es 0, cuenta la can- 
tidad de ellos que hay consecutivos y almacena un solo cero 
con un segundo valor que indica el número de ellos que ha 
contado antes de encontrar otro carácter distinto. 


LA COMPRESOR 1 

10 SYMBOL AFTER 256: MEMORY 20000: SYMBOL AFTER 240 
20 FOR n=43800 TO 43888 

30 READ a$: POKE n, VAL ("'£'+a$) 

40 NEXT 

50 DATA 11,00,C0,21,17,AB,7E,12,13,2B 

60 DATA CB,7A,C8,B7,20,F6,46,2B,05,28 

70 DATA F1,12,13,10,FC,CB,7A,20,E9,C9 

80 DATA FE,01,C0,11,00,C0,21,17,AB,1A 

90 DATA 77,13,2B,CB,7A,28,18,B7,20,FS 
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100 DATA 06,01,1A,B7,20,08,13,CB,7A,28 
110 DATA 07,04,20,F4,70,2B,18,E3,04,70 
120 DATA 2B,EB,21,17,AB,B7,ED,5Z,EB,DD 
130 DATA 6E,00,DD,66,01,73,23,72,C9 


Para comprimir una pantalla, use los siguientes comandos: 
A%=0: CALL 43830.0A% 


En la variable A% devuelve el número de octetos que ocupa 
la pantalla, de forma que pueda calcular la cantidad de me- 
moria ahorrada. (Esto también es aplicable al segundo pro- 
grama compresor que sigue a este). 


Para retormar la pantalla a su estado inicial, teclee: 
CALL 43800 


Para salvar una pantalla, compr ímala primero de la forma 
explicada, y teclee después: 


SAVE ''NOMBRE",B,43800-A%, AZ+30 


Para cargarla y mostrarla, haga un LOAD "" y después CALL 
43800. 


Cuando salve la pantalla, debe salvar también la rutina de 
compresión. 


0001 ; COMPRESOR 1 

0002 ; 
AB18 0010 ORG 43800 

0020 ; RUTINA1 
AB18 1100C0 0030 LD DE, 0CA0H 
AB1B 2117AB 0040 LD HL, 43799 
AB1É 7E 0050 UNCMPT LD A, (HL) 
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FER1 


32 cu 


1100800 


_2117AB 


1A 
pá 


B7 
2008 


quen 
0070 
0080 
00790 
0100 
0110 
0120 
0130 
0140 
015 
aq160 
2172 
0136 
0190 
220% 
0214 
220 
230 
02404 
02530 
Q250 
a270 
vu230 
0294 


PEPEAT 


DANZ 


COMPCT 


COUNT 


LD (DEr,A 
INC DE 
DEC Hi 
BIT 7,D 
RET 2 
OR A 
JR" NZ,UNCMPT 
LD B, (HL) 
DEC HL 
DEC. E 
JR. ZU LUINCMPT 
LD (DE,A 
INC DE 
PEPEAT 
eIT 7.0 
JE NZ. UNCMPT 
FET 

RUTINA <= 
EP 1 
PET NZ 
LD DE. ACAMH 
LD HL, 43799 
LD A, (DE) 
LD (HL A 
INC. DE 
DEC» "HL 
BIT 7,D 
JR Z, TOTAL 
o- A 
JR NZ. COMPCT 
LD B,1 
LD A, (DE) 
or A 
JR NZ, GOTLEN 
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AB50 13 
AB51 
ABS 
ABSS 04 
AB56 
ABS8S 70 
ABS9 
ABSA 
ABSC 04 
AESD 7Uu 
ABSE TB 
ABOF EB 
AB60 
ABOZ3 B7 
AB6Ó4 EDSZ 
ABOG EB 
AB67 DD6SEVO 
AB6A DDEGÓVW1 
AB6D 73 
AB6E 23 
ABOF 72 


2117A86 


AB70 29 


Compresor 2 


A diferencia de 


0510 
0520 
0530 
0544 
03950 
1550 
a570 
0580 
057. 
600 
vp614 
v6za 


los caracteres que 


Sy 


ceros. 


por ejemplo, 


3,160,2,2,2,2 


la 


GOTLEN 


TOTAL 


rutina anterior, 
se encuentra repetidos, 
una porción de la pantalla es: 


3,1,160,1,2,6,8,4 
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,2,218,8,8,8 
La rutina la almacena así: 


NZ, COUNT 
(HO, E 
HL 
COMPCT 

B 

(HO ,B 
HL 

DE, HL 
HL, 43799 
A 

HL, DE 
DE, HL 

L, (IX+0) 
H, (1X+1) 
(HO, E 
HL 

(HE) .D 


todos 
sean 


esta compr ime 
aunque no 


El mayor problema de esta rutina es que si la pantalla es 
demasiado complicada, mo comprime nada y puede que ocupe más 
de las 16kK usadas para almacenar la pantalla en circunstan- 
cias normales. Sin embar3o, como funciona con la mayoría de 
las pantallas, puede intentar usarla primero. 


1 COMPRESOR 2 

10 SYMBOL AFTER 2506: MEMORY 20000: SYMBOL AFTER 240 
20 FOR n=43800 TO 43875 

30 PEAD a$: POKE nm, VAL("5'"+at) 

40 NEXT 

50 DATA 11,00,C0,21,17,A4B,7E,286,46,28 
60 DATA 12,13,10,FC,CB,7A,20,F4,C9,FE 
70 DATA 41,00,11,00,00,21,17,AB,1A,77 
80 DATA 173,2B,06,01,CB,7A,28,12,4F,1A 
90 DATA B9,20,08,173,76,7A,2£,07,04, 204 
100 DATA F4,70,2B,18,E5,04,70,2B,EB,21 
110 DATA 17,A46,B7,ED,52,£6,DD,6E,00,DD 
120 DATA 56,01,773,23,72,C%9 


Para comprimir la pantalla: 


A%=0: CALL 43819,6A% 


Para descomprimirla: 


CALL 43800 


Para salvar una pantalla y el descompresor (necesario para 
mostrar la pantalla de forma normal) teclee: 


SAVE '"'NOMBRE",B,),43800-AZ%, A%Z+19 
En este caso B no es una variable, sino el signo que le 
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dice al ordenador que está salvando un fichero binario. 


0001 ; COMPRESOR 2 
OUanZz ; 
AB18 vc01a ORG 43300 
0020 ; á RUTINA1 
AB18 1100C0 0030 LD DE, 0C000H 
AB1B 2117AB 0040 LD HL, 43799 
AB1E 7E 0050 UNCMPT LD A, (HL) 
AB1F 2B 0060 DEC HL 
AB20 46 0070 LD B, (HL) 
ABZ1 ZE 0ve0 DEC, “HE 
ABZ22 12 0090 REPEAT LD (DEJ,A 
AB27 13 100 INC” DE 
ABZ4 10FC vi10 DJNZ REPEAT 
ABZO CB7A 0120 BIT 7,0 
AB23 2Z0F4 ui30 JP NZ, UNCMPT 
ABZA (9 Q140 RET 
0150 ; RUTINA 1 
ABZB FEM1 0160 CcP 1 
AB2D CM 0170 RET — NZ 
ABZ2E 1100C0 v1i8g0 LD DE, 0ACADOH 
AB31 2117AB 0190 LD HL, 43799 
AB34 1A Q200 COMPCT LD A. (DE) 
AB3S 77 0210 LD (HD, A 
AB36 13 022 INC — DE 
AB37 2B az30 DEC HL 
AB38 (4601 0240 LD B,1 
ABZA CB7A 0250 BIT  7,D 
AB3C 2812 0260 JR Z, TOTAL 
ABJE 4F 0270 LD CA 
AB3F 1A 0280 COUNT LD A, (DE) 
AB40 B9 0290 cP ces 
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EDSZ 
EB 
DDEEDO 
DD6S0a1 


0310 
0320 
0330 
07340 
0354 
0360 
037 

0380 
0390 
0400 
0414 
0420 
0430 
0440 
0450 
0460 
2470 
0480 
1430 
2500 
0510 
0520 
0570 


GOTLEN 


LAST 
TOTAL 


INC 
BIT 


INC 


INC 
LD 

RET 
ENC 


NZ, GOTLEN 
DE 

7,D 

Z ¡LAST 

B 

NZ, COUNT 
(HO .B 
Ht 
COMPCT 

B 

(HO,BE 
HL 

DE, HL 
HL, 43799 
A 

HL, DE 
DE, HL 

L, ¿(IX+Q0) 
H), (1IX+1) 
(HD, E 
Hut 
(HO), O 
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TRECE. == DOKE y DEER 


Cuando se programa en código máquina se suele hacer PEEK y 
POKE de números de 16 bits. Mientras que los números de 8 
bits tienen un rango de 256, los de 16 bits lo tienen de 
65535. Los números de 16 bits usan dos octetos, y para hacer 
un POKE de un número de dos octetos, se debe usar esta pe- 
queña fórmula: 


POKE octetol + 256 * octeto2 


Esto mismo se aplica cuando se hace un PEEK de dos octetos 
de una posición de memoria. Algunos ordenadores tiene sufi- 
ciente suerte como para tener comandos que pueden hacer 
Doble-PEEK y Doble-POKE, conocidos como DEEK y DOKE. Esta 
rutina proporciona dos comandos nuevos de BASIC,:DOKE y 
¡DEEK. 


1 j DOKE/DEEK 

10 SYMBOL AFTER 256: MZ¿MORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40071 

30 READ a$: POKE n, VAL ("£'"+a$) 

40 NEXT 

50 DATA 01,44A,9C,21,52,9C,CD,D1,BC,C9 
60 DATA 36,9C,C3,5F,9C,C3,72,9C,00,00 
70 DATA 00,00,44,4F,4B,C5,44,45,45,C6B 
80 DATA 00,FE,02,C0,DD,6E£,02,DD,66,03 
90 DATA DD,7E,00,77,27,DD,7E,01,77,C9 
100 DATA FE,02,C0,DD,6E,02,DD,66,03,DD 
110 DATA 5E,00,DD,56,01,7E,23,12,13,7E 


120 DATA 12,C9 


Primero debe hacer una CALL 40000 para preparar los nuevos 
comandos, para usar ¡DOKE, debe ir seguido por uma dirección 


173 


válida de memoria y por un número de 16 bits. Los dos valo- 
res deben ser decimales. 'DOKE,30000,343 dividirá el valor 
343 en dos usando la fórmula ¡inversa a la anterior y colo- 
cando los dos valores en las posiciones de memoria 30000 y 
30001. 


¡DEEK es un poco más complicada. Se usa con el formato: 


N%=0: ¡DEEK, A, ON% 


A es la primera dirección de la que se vaa hacer PEEK 
(¿DEEK mirará en A y A+1) mientras que N% contiene el valor 
retornado por el ¡DEEK. N% se debe definir antes del ¡DEEK. 
Como puede ver por el signo %, debe ser una variable entera. 
Recuérdelo si quiere imprimir el valor real de DEEK. Si el 
valor devuelto es negativo, necesitará imprimir 65536+N% pa- 
ra obtener el valor real. 


0001 ; DOKE DEEK 
0002 ; 
9040 0010 ORG 40000 
BCD1 0020 LOGEXT DEFL 0BCD1IH 
9040 014A9C 0030 LD BC, TABLA 
9C43 21529C 0040 LD HL), ESPACI 
9C46 CDD1BC 0050 CALL LOGEXT 
9C49 C9 0060 RET 
9C4A S69C 0070 TABLA DEFW NOMBTB 
9C4C C3SF9C 0080 JP DOKE 
9C4F C3729C 0090 JP DEEK 
9C52 00 0100 ESPACI DEFB 0,0,0,0 
00 00 00 
9C56 0110 NOMBTB DEFM ''DOKk" 
9C59 CS 0120 DEFB "E'"+80H 
ICA 0130 DEFN "DEE" 
9C5D CB 0140 DEFB "k'"+80H 
9CSE 00 0150 DEFB Q 
9C5F FE0OZ 0160 DOKE cP 2 
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9Cc61 

9C62 
9C65 
9C68 
9C6B 
9c6c 
9C6D 
9C70 
9C71 

9072 
9C74 

9C75 
9C78 
9C7B 
9CTE 
9Cc81 

9C82 
9C83 
9C84 
9085 
9C86 
9C87 


ca 
DD6E02 
DD6603 
DD7E00 
ZA 

23 
DD7E01 
ETA 

co 
FEO2 
co 
DD6E02 
DD6603 
DD5E00 
DD5601 
7E 

23 

EZ 

13 

7E 

12 


c9 


0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
Qa290 
0300 
Q310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 


DEEK 


RET 
LD 
LD 
LD 
LD 
INC 
LD 
LD 
RET 
cp 
RET 
LD 
LD 
LD 
LD 
LD 
INC 
LD 
INC 
LD 
LD 
RET 
END 


NZ 

L, (1X+2) 
H), (1X+3) 
A, (1X+0) 
(HOD,A 
HL 

A, (IX+1) 
(HD ,A 


2 

NZ 

L, (1X+2) 
H, (1X+3) 
E, (IX+0) 
D, (IX+1) 
A, (HL) 
HL 
(DE),A 
DE 

A, (HL) 
(DE),A 
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CATORCE - El Paquete de 
Escritura de Juegos 


Para terminar este libro tenemos un programa que nos pro- 
porciona una selección de las rutinas en código máquina en 
un solo paquete fácil de usar. La rutina crea nuevas pala- 
bras clave de BASIC, usando las llamadas RSX. 


'EXPLODE, : READCHAR, ¡BIGPRINT, ¡ USCROLL, 
'DSCROLL, ¡LSCROLL, ¡ RSCROLL, : COMMANDS 


Veámoslas por turno. EXPLODE no necesita ningún parámetro. 
Simplemerte crea un sonido de explosión, muy usado en los 
programas de juegos. READCHAR y BIGPRINT son dos comandos 
que corresponden al título de las rutinas que hemos visto en 
este libro. BIGPRINT crea caracteres de doble tamaño mien- 
tras que READCHAR calcula el carácter ASCII en una posición 
de pantalla determinada. 


USCPOLL, DSCROLL, LSCROLL y PSCROLL som las cuatro rutinas 
de movimiento de pantalla que hemos visto anteriormente, con 
la primera letra indicando la dirección del movimiento. 
COMMANDS mos proporciona una lista de los comandos anterio- 
res. 


Para comprender cómo funciona cada uno y los parámetros 
que necesitan, debe dirigirse a cada rutina en particular. 


Este paquete ofrece la mayor parte de las rutinas en códi- 
go máquina necesarias para escribir un buen juego "híbrido", 
parte en BASIC y parte en código máquina. 


1 ? PAQUETE ESCRITURA DE JUEGOS 
10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 DIM x<(12) 

30 FOR c=0 TO 12:READ as: x(c)=VAL ("£%+as) : NEXT 
40 c=0: sum=0 


1:77: 


50 
60 


> 
/ 


80 
90 


100 
110 
120 


130 
140 
150 
1060 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 

30 
340 
- 350 
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FOR n=40000 TO 41207? 

PEAD ab: v=VAL ("2£'"+a$) 

sum=sumtv:POKE n, v 

IF (n+1-400001 MOD 100:>0 GOTO 110 

IF sum«>x(c) THEN PRINT "*DATOS ERPONEOS*"; CHR$ (7): 
PRINT "Compruebe las líneas '"'¡210+100*.C;53" a *"; 
300+100*c: END 


sum=0:c=c+1 


NEXT 
IF sumt>ox1fcr THEN PFINT "*DATOS EPPRONE0O=S*";CHPB 17): 
PRINT "Compruebe la linea 1410" 


, 


, DATOS DE VERIFICACION 


DATA 2879, 2F09,2A7A,27A7, 2673B,2434, 2042 
DATA 2722,2593, 2489, 278C,29D7,240D 


7 CODIGO MAQUINA 


DATA 01,4A,39C,21,€64,39C,CD,D1,BC,C9 
DATA 68, 9C, C3, A4, 9C, C3, C3,9C,C3,D7 
DATA 9C,C3,77,9D,C7,09,9E,C3,A1,9E 
DATA (2,61,9F,C23,C7,40,00,00,00,00 
DATA 45,58,50,4C,4F ,44,C59,92,43,41 
DATA 44,473,42,41,D2,42,49,47,50,52 
DATA 49,4E,D4,55,973,473,52,4F,4C,CC 
DATA 44,57,472,592,4F,480,0C,40,5973,43 
DATA 52,4F,410,£C0,92,593,43,92,4F,4€ 
DATA 2C,43,4F,40D,4D,41,4E,44,D7,00 
DATA CD,A7,BC,3E,01,21,E6,92,CD,B.l 
DATA BC,21,BA,9C,CD,AA,EC,C9,Q1,0F 
DATA FF,19,01,01,00,00,00,0F,0F,00 
DATA (0,DD,6E,02,DD,66,04,CD,73,BB 
DATA CD,60,BB,DD,5E,00,DD,066,01,77 


360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


C9,7D,93,BB,FS,DD,6E, 04,DD,66 
05,46,23,5E£,23,56,DD,6£,06,DD 
66,08, C5,D5,E5,1A,47,CD,06,B9 
78,CD,34,9D,47,CD,09,B9,E1,5D 
54,€D,75,BB,DD,7E,02,CD,90,BB 
78,CD,5A,BB,3C,C0,5A4,BB,60B,62 
2C,CD,75,BB,DD,7E,00,CD,90,BB 
78,3C,3C,CD,5A,BB,3C,CD,SA,BB 
08,62,24,24,D1,13,C1,10,BD,F1 
CD,90,BB,C9,CD,AS,BB,EB,CO, AE 
BB,F5,0E,02,06,04,C5,1A,0F,0F 
0F,0F,06,04,1F,CB,1E,CB,2E,10 
F9,7E,23,77,06,07,27,10,FD,1A 
06,04,1F,CB,1E,CB,2E,10,F9,7E 
23,77,06,07,2B,10,F0D,13,C1,10 
D3,06,08,23,10,FD,0D,20,C9,F1 
C9,DD,6E,02,DD,66,06,2D,25,DD 
7E,04,94,4F,DD,7E,00,95,57,CD 
1A,BC,3E,00,21,10,FD,5F,18,38 
D5,43,5D,7C,C6,238,57,70D,C6,50 
6F,30,04,24,7C,E6,07,20,04,7C 
D6,08,67,E5,7E,12,1C,20,0A,14 
74A,€6,07,20,04,7A,D6,08,57,2C 
20,04,24,7C,E6,07,20,04,7C,D6 
08,67,10,E2,E1,D1,D5,E5,4B,ES 
06,07,5D,54,7C,C6,08,07,7E,12 
10,F6,E1,2C,20,0A,24,7C,E6,07 
20,04,7C,D6,08,67,0D,20,E2,E1 
D1,15,20,A2,7C,C6,38,67,43,36 
00,2C0,20,0A4,24,7C,E6,07,20,04 
7C,D6,08,67,10,EF,C9,DD,6E,00 
DD,66, 06, 2D,25,DD,7E,04,94,4F 
7D,C6,02,DD,96,02,57,CD,1A,BC 
7C,06,38,67,3E£,00,81,10,FD,S5F 
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700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
8g6R 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
999 
1000 
1010 
1020 
1030 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


18,38,D5,43,5D,7C,D6,38,57,7D 
D6,50,6F,30,04,7C,25,E6,07,20 
04,70,C6,08,67,E5,7E,12,1C,20 
0A,14,7A,E£6,07,20,04,7A,D6,08 
57,2C0,20,0A4,24,7C,E6,07,20,04 
7C0,D6,08,67,10,E2,E1,D1,D5,E59, 
4B,E5,06,07,5D,54,7€,D6,08,67 
7£,12,10,F6,E1,2C,20,04,24,7C 
ES,07,20,04,7C,D6,08,67,0D,-20 
E2,E1,D1,15,20,A2,7C,D6,38,67 
43,36,00,2C,20,0A4,24,7€,E6,07 
20,04,70,D6,08,67,10,EF,C9,DD 
6E,02,DD,66,06,2D,25,DD,7E,0Q4 
94,4F,DD,7E,00,95,57,CD,1A,BC 
2E,00,81,10,FD,47,CD,11,BC,DA 
5B,9F, 28, 48,DD,6E,02,DD,66, 04 
2D,25,C5,CD,1A,BC,C1,0E,08,C5 
ES,B7,CB,16,F9,7D,2D,B7,20,0A 
70,25,€6,07,20,04,7C,C6,08,67 
F1,10,EB,E1,7C,C6,08,67,C1,0D 
20,DF,70,D6,40,67,7D,C6,50,0F 
730,04, 24,70C,E6,07,20,04,7C,D6 
08,67,15,20,C6,C9,05,D5,0E,08 
C5,ES5,CB, 26,5D,54,2C,20,04, 24 
7C0,E6,07,20,04,7C,D6,08,67,1A 
CB,26,38,04,CB,A7,18,02,CB,E7 
CB,66, 28,02,CB,C7,12,10,DD,CB 
A6,E1,7C0,C6,08,67,C1,0D,20,CE 
7C0,D6,40,67,7D,C6,90,6F,30,0A 
24,70,E6,07,20,04,7C,D6,08,67 
D1,15,20,B3,C9,05,D5, 0E,08,5 
ES, C05,5D,54,2C,20,0A,24,7C,E6 
07,20,04,7C,D6,08,67,7E,1F,4F 
14,17,17,06,04,17,CB,21,CB,21 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
190 
200 
210 
220 
230 
240 
250 
¿260 
270 
¿280 
290 
300 
310 
.320 
.330 
340 
350 

360 
370 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


17,10,F8,12,C1,10,DC,7E,17,06 
04,07,CB,27,10,FB,77,E1,7C,C6 
08,67,C1,0D,20,C7,7C,D6,40,67 
7D,C6,50,6F,30,0A,24,7C,E6,07 


20,04,7C,D6, 
C9,DD,6E,02, 
2C6,02,DD,%6, 
57,CD,1A,BC, 
FC,47,CD,11, 
DD,6E,02,DD, 
1A4,BC,C1.0€. 
F5,2C,20,04, 
70,D6,08,67, 
08,657,€1,0D, 
7D,C6,50,6F, 
20,04,7C,D6, 
915,D5,0E,08, 
7D,2D,B7,20, 
04,70,06,08, 
CB,9F,18,02, 
CB,FF,12,10, 

8,67,C1,0D, 
7D,06,50,6F, 
20,04,7C,D6, 
29,05,D5,0E, 
7D,2D,B7,20, 
04,70,C06,08, 
1F,06,04,1F, 
F8,12,C1,10, 
CB,3F,10,FB, 
C1,0D,20,C59, 
50,6F,30,04, 


08,67,D1,15,20,AC 
DD,66,04,2D,293,7C 
06,4F,DD,7E,00,953 
28,73E,00,81,23,10 
BC,DA,6F,A0, 28,46 
66,06,2D,29,C5,CD 
08,25,E5,B7,CB,1E 
24,70,E6,07,20,04 
F1,10,ED,E1,7C,C6 
20,E1,70,06,40,67 
30,04, 24,7C,E6,07 
08,67,15,20,C8,C9 
C5,E5,CB, 3E,5D,54 
0A,7C,25,€6,07,20 
67,1A,CB,3E,78,04 
CB,DF,B,5E, 28,02 
DB,2B,9E,E1,7C,C6 
20,€0C,7C,D6,40,67 
730,0A,24,7C0,E6,07 
08,67,D1,15,20,B1 
08,25,ES,C5,5D, 54 
0A,7C,25,E6,07,20 
67,7E,17.4F,1A,1F 
CB,39,CB,79,1F,10 
DA,7E,1F,06,04,0F 
77,E1,7C0,C6,08,07 
72,D6,40,67,7D,C6 
24,7C,E6,07,20,04 


7C,D6,08,67,D1,15,20,AA,C9,21 
068,9C,3E,0D,CD,5A,BB,7E,0A,CD 
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1380 DATA 5A,BB,3E,7C,CD,5A,BB,7E,27,CB 
1390 DATA 7F,20,05,CD,5A,BB,18,FS,CB,BF 
1400 DATA CD,5A,BB,3E,0D,CD,5A,BB,73E,0A 
1410 DATA CD,S5A,BB,7E,B7,20,DD,C9 


Una vez tecleado y comprobado el código máquina, se 
salvar con una sentencia como esta: 


SAVE 'mcjuego”,B,44000,1208 


Bombar dero 


Para demostrar el uso de este paquete, tenemos el 


debe 


juego 


del Bombardero. Es, en nuestra imparcial opinión, una de las 


mejores versiones del popular juego del ''bombardero que 
truye los edificios para hacer una pista de aterrizaje" 


des- 
, que 


hemos visto en el Amstrad. El programa incluye un diseño de 
avión hecho con ocho caracteres UDG, una gran bomba gráfica 


y muy buenos efectos de sonido. 


El programa nos muestra lo que se puede consequir en rela- 


tivamente poco tiempo usando el paquete de escritura de 
gos. 


10 SYMBOL AFTER 256: MEMORY 29999: SYMBOL AFTER 236 
20 LOAD 'mcijuego”,4aan0 

30 CALL 40000 

40 ENT 1,270,1,3,270,1 
50 ENT -2,6,2,2,4,-2,2 
60 RANDOMIZE TIME 

70 SYMBOL 240,120,124,62,63,31,731,673,62 
80 SYMBOL 241,0,0,0,0,299, 299,2959,297 
9Q SYMBOL 242,0,0,0,0,224, 24,20€,295 
100 SYMBOL 243,31,60,112,84,0,4,0,0 

110 SYMBOL 244,251,127,15,731,31,62,60,0 


7, 
> 
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jue- 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


380 
390 
400 
410 
420 
430 
440 


SYMBOL 245,251,255, 240,192,122,0,0,0 
SYMBOL 246, 254,0,0,0,0,0,0,2 

SYMBOL 247,231,90,231,129,66,730,60,1-2% 
SYMBOL 248,125, 255, 2395, 255, 259,126,126,60 
SYMBOL 249,255, 255,241,241,255, 241, 241,255 
SYMBOL 250,255, 259,1473,147,255,143,147,255 
s$=" "2 4 ESPACIOS 

at= CHR$ (240) + CHR$ (241) + CHR$ (241) + CHR$ (242) 
b$=CHR$ (243) + CHR$ (244) + CHR$ (245) + CHR$ (246) 
INK 0,14: INK 1,0: INK 2,6: INK 3,24 

BORDEP 14:MODE 1 

m$="Bombardero ": ¡BIGPRINT,10,1,0m$, 3,2 
FOR n=5 TO 37 STEP <= 

w=15- INT(RND+*10> 

PEN 2+n/2 MOD 2 

FOR y=x« TO 25 

LOCATE n,vy:PRINT CHR$ (249) 5 CHEFS (23M) 

NEXT: NEXT 

ch%=Q:cr=Q: PEN 1:LOCATE 1,1 

PRINT a$: PRINT b$ 

SOUND 159,500,2000,7,0,0,1 

v=1:14=1:=1 

IF 1:23 AND INFEY(471=0 GOTO 470 

IF v=30 AND 15=27 GOTO 1120 

FOR m=1 TO 2: NEXT 

IF c=1 THEN !PEADCHAF, v+4,1u+t1,9ch%: IF ch%: 242 
GOTO 920 

¡RSCROLL, v, +4, 1) 1+1 

c=c+1: IF c=9 THEN c=1:v=v+1 

IF v:37 GOTO 2340 

LOCATE 237,14: PRINT s$ 

LOCATE 237,u+1:PRINT s$ 

LOCATE 1,u+1:PRINT a$ 

LOCATE 1,w+2:PRINT b$% 
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450 
460 
470 
480 
490 
500 
510 


520 
5730 


540 
550 
500 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 


710 


720 
730 
740 
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SOUND 129,500,2000,7,4,0,1 

V=1:1=14+1: GOTO 7340 

ASCII = VEZ: y=uUt2 

: READCHAR,x, y, ch%: IF ch%>+32 THEN t=y: GOTO 710 
¡ READCHAR, <, y+1,W8ch%: ; PEADCHAR, x, y+2,Ocr% 
SOUND 130,730,500,5,0,1 

LOCATE x<,y:PRINT CHP8(247):LOCATE +», y+1: PRINT 
CHR$ (248) 

IF ch%*cra%4 G50TO 700 

IF c=1 THEN ¡READCHAP, v+4,u+1,8ch%: IF ch%+248 
GOTO 920 

¡ RSCPOLL, v, v+4, 1, 11+1 

¡DSCROLL) xx, %) Y) y+2: 5: DSCROLL), <,x, y, Yy+2 
c=c+1: IF c=9 THEN c=1:v=v+1 

IF y:37 GOTO 640 

LOCATE 237,w:PRINT s$ 

LOCATE 37, ,1ut+1:PRINT s$ 

LOCATE 1,u+1:PRINT a$ 

LOCATE 1,uw+2:PRINT b$ 

SOUND 129,500,2000,3,0,0,1 

v=11u=u4+1 

b= y 


y=y-(d=c+-(d-1=(c+3) MOD S) 


IF b<y THEN ¡READCHAR, x, y+2,0ch%: IF ch%>*+32 GOTO 700 
IF y<23 GOTO 530 

LOCATE x,y:PRINT " ":LOCATE x, y+1:PPINT " " 

SOUND 130,0,0,0: GOTO 340 

t=y+2:LOCATE x,y:PRINT " ":LOCATE *+(x MOD 2=0), 
y+1:PRINT " ":? 2 espacios 

IF t«11 OR t<23 AND PRND<0.7 THEN b=t+ INT ( (24-t)/73) 


ELSE b=25 
IF RND>0.6 OR b=2S AND RND>0.3 THEN q=4 ELSE q=8 
m= (1+b-t)* (q-2): z=x+1 


IF x MOD 2=0 THEN z=x: x=x-1 


7530 
760 
770 
780 


790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
3910 
920 
930 
940 
930 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


SOUND 130,100*q,800,15,0,2 
FOR n=1 TO m 

¡ DECROLL, x,z7,t,b 

IF c=1 THEN !PEADCHAR, v+4,w+1,€ch?%: IF ch%>248 
GOTO 22 

¡PSCROLL, v, v+4, 0, 1141 

IF aq=4 THEN ¡DSCROLL, x,73t,b 
c=c+1: IF c=9 THEN c=1:v=v+1 
IF v:37? GOTO 890 

LOCATE 37, ,w:PRINT s$ 

LOCATE 237,1u+1:PRINT s$ 
LOCATE 1,u+1:PRINT as 

LOCATE 1,u+2:PRINT b$ 

SOUND 129,500,2000,7,0,0,1 


v=1:3u=04+1 


NEXT 
SOUND 130,0,0,0 
GOTO 740 


SOUND 135,0,0,0 
'EXPLODE: INK 2,6,24: INK 3,24,6: SPEED INK 2,2 
IF m>23 GOTO 1050 
t=mib=t+2 
'PREADCHAR,v,b,9ch%: IF chx>»232 GOTO 980 
b=b+1: IF b:26 GOTO 960 
b=b-1:m=(b-t-1)+*8 
FOR n=1 TO m: ¡DSCROLL, v, v+1,t,b:NEXT 
t=w:b=t+2 
'READCHAR, v+2,b,ch%: IF ch%x>»32 GOTO 1030 
b=b+1: IF b<26 GOTO 1010 
b=b-1:m= (b-t-1)»*8 
FOR n=1 TO m: :DSECROLL, v+2,v+3,t,b: NEXT 
PEN 1: FOR m=1 TO 2000: NEXT 
LOCATE 12,2:PRINT "Otro Juego? (S/N)" 
BORDER 1 
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1080 re$=UPPER$ (INKEYS$) 

1090 IF r$="<" GOTO 210 

1100 IF r$<>"N'" GOTO 1080 

1110 END 

1120 FOP n=1 TO gg 

1130 SOUND 1735,100-n,2,7 

1140 :PSCROLL,30,40,19,24 

1150 IF n MOD 3=0 THEN ¡USCROLL,30,40,19,24 
1160 NEXT 

1170 PEN 2 

1180 m$=" ENHORABUENA — ":¡BIGPRINT,6,12,0m8$,2,3:G0TO 1950 


La barra de espaciado hace caer las bombas, y el objetiva 
consiste en limpiar la pantalla de edificios antes de ate- 
rrizar, y despegar de nuevo. Cuando juegue con él, observe 
la suavidad del movimiento del avión a través de la pantalla 
e intente adivinar dónde se han usado los nuevos comandos. 


186 


APENDICES 


A - Mapa de Memoria 
B - Códigos de Operación del 280 


C - Conversión Hexadecimal a Decimal 
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APENDICE A 


Mapa de Memor ia 


Debemos mencionar algunos puntos relacionados con el mapa 
de la memoria del Amstrad. 


Primero, el mapa de memoria es bastante complicado, ya que 
deben operar 64K de RAM y 32kK de ROM en los 64K de memoria 
disponible - de ahí el cambio de bancos de memoria. Segundo, 
todas las direcciones dadas en el mapa de la pantalla están 
en hexadecimal. Tercero, observe las direcciones de seis dí- 
gitos en lo alto del mapa de la pantalla. 010000 es la fron- 
tera superior y es, en efecto, uno más alto que la dirección 
real, que es FFFF. 





00000 010000 
MEMORIA DE PANTALLA ROM SUPERIOR 
POR DEFECTO (banco solapable) 
cov0 co00 
PILA, FECHA Y 
BLOQUES DE SALTO 
B100 
ACO0Q 
DATOS SECUNDAPIOS 
2277 HIMEM 


MEMORIA LIBRE 
(Programa del usuario 
y Variables) 


Ed 


DATOS PRIMARIOS 


DATOS SECUNDARIOS 


0040 
ROM INFERIOR 


AREA DEL ?FIRMUARE ”? 








0000 0000 
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APENDICE B 


En este apéndice le damos una lista completa de los códi- 
30s de operación e instrucciones del Z80. 


El significado de los símbolos es: 


Reg As Bs Cs DD) Es Hi, L 

Regpar HL, BC, DE, SP 

Modo ti 21 3 

Operandi Bs Bs: Es Ds. Es Hs des. HO). CI des), 


(IY+des), datos 


Operando A, B, C, D, E, H, L, (HL), (IX+des), (IY+des) 
Des desplazamiento, un número entre 0 y 255 
Datos un número entre 0 y 255 

DIF una dirección entre 0 y 65535 

Ce condiciones Z, NZ, C, NC, P, M, PE, PO 

C condiciones Z, NZ, C, NC 

Vector dirección 0, 8, 16, 24, 32, 40, 48 o 56 
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Sumario de 


Funciones del 


ADC 


ADC 


CPDR 


CPI 
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A, operandi 


HL, regpar 


A, operandi 
HL, regpar 
IX, regpar 
IX, IX 
IY, regpar 
IY, IY 


operandi 


b, operand1 
dir 


con dir 


operand1 


Instrucciones y 


280 


¡Suma un operando y el bit de acarreo 
jal acumulador 


5 Suma 


Suma 


Suma 


Suma 


5 Suma 


Suma 


5 Suma 


un 


acarreo 


un 


un 


un 


IX 


un 


IY 


par de registros y el bit de 
al acumulador 


operando al acumulador 
par de registros a HL 
par de registros a IX 
a sí mismo 

par de registros a IY 


a sí mismo 


¡AND lógico de un operando con el 
¡acumulador 


¡Comprueba el bit b del operando 


¡Llama a una dirección 


¡Llama a una dirección si CC es válido 


¡Complementa el señalizador de acarreo 


¡Compara el operando con el acumulador 


¡Compara 
¡decrementa HL y Bl 


5 Compara 
jdecrementa HL y BC, y repite hasta 
0 o coincidan los valores 


¡BC = 


¡Compara 
jincrementa HL y decrementa BC 


(HL) con el acumulador, 


(HL) con el acumulador, 


(HL) com el acumulador, 


CPIR 


El 


EX 


EX 


EX 


EX 


EX 


EXX 


HALT 


IM 


IN 


IN 


INC 


INC 


operando 
IX 
IY 


sP 


des 


(SP) , HL 
(SP), IX 
(SP), IY 
AF, AF? 


DE, HL 


modo 


A, (dato) 


reg, (C) 


operando 


regpar 


¡Compara (HL) con el acumulador, 
jincrementa HL, decrementa BC, y repite 
¡hasta BC = 0 o coincidan los valores 
¡Complementa (invierte) el acumulador 
¡Ajuste decimal del acumulador 
¡Decrementa el operando 

¡Decrementa IX 

¡Decrementa IY 

¡Decrementa el apuntador de la pila 


jInhabilita las interrupciones 


j¡Decrementa B y salta al desplazamiento 
jsiB<0 


jHabilita las interrupciones 
¡Intercambia (SP) y HL 

¡Intercambia (SP) e IX 

¡Intercambia (SP) e IY 

¡Intercambia AF con los alternados AF 
¡Intercambia DE con HL 

¡Intercambia los registro generales con 
¡los alternados 

¡Suspende las operaciones de la CPU 
¡Activa el modo de interrupción 
¡Introduce un dato en el acumulador 
¡desde la puerta indicada por el 


jacumulador y el dato 


3Introduce un dato en reg desde la 
¡puerta indicada por el registro C 


jIncrementa el operando 


¡Incrementa un par de registros 
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INC IX 


INC IY 
IND 

INDR 

INI 

INIR 

JP (HL) 
yP (DO 
JP ELY) 
JP dir 


JP CORE 


JR des 
JR c, des 
LD A, I 


LD A, operandi 
LD A,R 

LD (BO,A 

LD (DEJ,A 

LD (HL), dato 


LD HL, (dir) 
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¡Incrementa IX 


5 Incrementa IY 


¡Carga 
jimdica 
¡HL y B 
¡Carga 
jimdica 
¡HL y B 
¡Carga 
jimdica 
¡Be lin 
¡Carga 
jimdica 
¡Be in 
JB= 0 
¡Salta 
¡Salta 
¡Salta 
¡Salta 


¡Carga 
idirecc 


¡Salta 
¡Salta 


¡Carga 
¡del ac 


¡Carga 
jCarga 
¡Carga 
¡Carga 
¡Carga 


¡Carga 


(HL) con el dato de la puerta 
da por el reaistro € y decrementa 


(HL) con el dato de la puerta 
da: por el registro €, decrementa 
, y repite hasta que B = QU 

(HLY» con el dato de la puerta 

da por el registro C, decrementa 
crementa HL 

(HL) con el dato de la puerta 

da por el registro €, decrementa 
crementa HL, y repite hasta que 
a la dirección de HL 

a la dirección de IX 

a la dirección de IY 


a la dirección 


el contador de programa con la 
ión si cc es válido 


el desplazamiento 
el desplazamiento si c es válido 


el vector de interrupción dentro 
umulador 


el operando dentro del acumulador 
el REFRESH dentro del acumulador 
el acumulador en (BC) 

el acumulador en (DE) 

el dato en (HL) 


(dir) dentro de HL 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LDD 


LDDR 


LDI 


(HD),reg 


I,A 


IX, dir 
IX, (dir) 


(IX+des), dato 


IY,dir 
IY, (dir) 


(IY+des), dato 


(dir),A 


(dir) ,regpar 


(dir), IX 
(dir), IY 


regpar,dir 


RA 

reg, operandl 
SP, HL 

SP, IX 


SP, IY 


¡Carga el registro en (HL) 


¡Carga el acumulador en el vector de 
jinterrupción 


¡Carga la dirección en IX 
¡Carga (dir) en IX 


¡Carga el dato dentro de 
¡IX + desplazamiento 


¡Carga la dirección en IX 
¡Carga (dir) en IY 


¡Carga el dato dentro de 
¡IY + desplazamiento 


¡Carga el acumulador dentro de (dir) 


¡Carga el par de registros dentro 
¿de (dir) 


¡Carga IX dentro de (dir) 
¡Carga IY dentro de (dir) 


¡Carga la dirección dentro del par 
¡de registros 


¡Carga el acumulador dentro del REFRESH 
¡Carga el eperando dentro del registro 
¡Carga HL dentro del apuntador de pila 
¡Carga IX dentro del apuntador de pila 
¡Carga IY dentro del apuntador de pila 


¡Carga (HL) dentro de (DE), decrementa 
¡DE, BC y HL 


¡Carga (HL) dentro de (DE), decrementa 
¡DE, BC y HL, y repite hasta que BC = 0 


¡Carga (HL) dentro de (DE), incrementa 
¡DE y HL, y decrementa BC 
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LDIR 


NEG 


NOP 


or 


OTDP 


OTIP 


OUT 


OUT 


OUTD 


OUT I 


POP 


POP 


POP 


PUSH 


PUSH 


PUSH 


RES 


RET 


RET 


RETI 
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operandi 
(C),reg 
(dato),A 
regpar 
1X 

IY 
regpar 
IX 

DY 


b,) operando 


cc 


¡Carga (HL) dentro de (DE), incrementa 
¡DE y HL, decrementa BC, y repite hasta 
¡BC = 0 

¡Niega el acumulador 


¡No operación 


¡OP lógico entre el operando y el 
jacumulador 


¡Carga (HL) dentro de la puerta €, 
¡decrementa B y HL, y repite hasta 
¡que B=0 

¡Carga (HL) dentro de la puerta C, 
incrementa HL, decrementa B y repite 
¡hasta que B = 0 

¡Carga el registro en la puerta € 


¡Carga el acumulador en la puerta dato 


¡Carga (HL) en la puerta €, decrementa 
¡HL y B 


¡Carga (HL) en la puerta C, incrementa 
¿HL y decrementa B 


¡Recupera un par de registros desde 
¡la pila 


¡Recupera IX desde la pila 
¡Recupera IY desde la pila 


jIntroduce un par de registros dentro 
¡de la pila 


j Introduce IX dentro de la pila 
jInmtroduce IY dentro de la pila 
¡Restaura el bit b del operando 
¡Retorno 

¡Retorma si la condición cc es válida 


¡Retorno desde una interrupción 


RETN 


RL operando 


RLA 


RLC operando 


RLCA 


RLD 


RR operando 


RRA 


RRC— operando 


RRCA 


RRD 


RST vector 


SBC  A,)operando 


SBC HL,regpar 


scF 
SET b,)opernado 


SLA operando 


¡Retormo desde una interrupción 
jno enmascarable 


¡Gira el operando hacia la izquierda 
ja través del bit de acarreo 


¡Gira el acumulador hacia la izquierda 
ja través del bit de acarreo 


¡Giro circular del operando hacia la 
¡izquierda 


¡Giro circular del acumulador hacia la 
jizquierda 


¡Giro circular hacia la izquierda entre 


¡los dos dígitos del octeto apuntado por 
¡HL y el segundo dígito del acumulador 


¡Gira el operando hacia la derecha a 
¡través del bit de acarreo 


¡Gira el acumulador hacia la derecha a 
¡través del bit de acarreo 


¡Giro circular del operando hacia 
¡la derecha 


¡Giro circular del acumulador hacia 
jla derecha 


¡Giro circular hacia la derecha entre 
jlos dos dígitos del octeto apuntado por 
¡HL y el segundo dígito del acumulador 


¡Rearrancar en la dirección del vector 


¡Restar el operando del acumulador junto 
¿con el bit de acarreo 


¡Restar el par de registros de HL junto 
¡con el bit de acarreo 


¡Pone el bit de acarreo a 1 
¡Pone el bit b del operando a 1 


¡Desplazamiento aritmético del operando 
jhacia la izquierda 
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SRA 


SRL 


suB 


xOR 
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operando 


operando 


operando 


operando 


¡Desplazamiento aritmético del operando 
¡hacia la derecha 


¡Desplazamiento lógico del operando 
¡hacia la derecha 


¡Resta el operando del acumulador 


¡OR exclusivo del operando dentro del 
jacumualdor 


Listado Alfabético de 


Instrucciones del 


NEMOTECNICO 
ADC A, (HL) 
ADC A, (IX+0) 
ADC A, (1Y+0) 
ADC  A,0 

ADC A,A 

ADC A,B 

ADC. A,C 

ADC A,D 

ADC A,ÉE 

ADC A,H 

ADC A,L 

ADC  HL,BC 
ADC  HL,DE 
ADC” HL,HL 
ADC  HL,SP 
ADD A, (HL) 
ADD A, (IX+0) 
ADD A, (IY+0) 
ADD A,0 

ADD A,A 


CODIGO OBJETO 


8E 


DD8E00 


FD8E00 


CcE00 


8F 


88 


89 


8A 


8B 


8c 


8D 


ED4A 


EDSA 


EDGA 


ED7A 


86 


DD8600 


FD8600 


c600 


87 


Z280 


SEÑAL IZADORES 


las 


7) 
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ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


ADD 


AND 


AND 


AND 


AND 


AND 


AND 


AND 


AND 
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(HAL) 
(1X+ 0) 
(IY+0) 
0 


A 


AG 


DDAG00 


FDAG00 


E6G00 


A7 


AQ 


A1 


AZ 


O 


O 


N 


N 


H 

L 

0, (HL) 
0, (1X+0) 


0, (IY+0) 


1, (HL) 
1, (1X+0) 


1, (IY+0) 


2, (HL) 
2, (1X+0) 


2, (1Y+0) 


A3 


AG 


AS 


CB46 


DDCB0046 


FDCB0046 


CB47 


CB40 


CB41 


CB42 


CB43 


CB44 


CB45 


CcB4E 


DDCB004E 


FDCB004E 


CcB4F 


CcB48 


CB49 


CB4A 


CB4B 


cB4c 


CB4D 


CcBS6 


DDCB0056 


FDCB0a056 


N NN 


N 


N 


N 


(m 
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BIT 


202 


3, (HL) 
3, (1X+0) 


3, (IY+0) 


4, (HL) 
4, (1Xx+0) 


4, (IY+0) 


CcB5O4 


CcB59S 


CBSE 


DDCBALBSE 


FDCBOUSE 


CcBSsF 


cB58 


CcB39 


CBSA 


CBS5B 


CcBac 


ceso 


ceór 


DDCea0%, 


FDCB00%6 


N N N N N 


N N NN 


N 


N 


N 


BIT 


BIT 


BIT 


BIT 


BIT 


BIT 


BIT 


BIT 


4,H 

4,L 

Ss (HL) 
5, (1X+0) 


5, (IY+0) 


6, (HL) 
6, (I1X+0) 


6, (IY+0) 


7, (HL) 
7, (1X+0) 
7, (I1Y+0) 


7,A 


CBO4 


cBó6S 


CB6E 


DDCB0A06E 


FDCBO06E 


cB6F 


cB6g 


CcBO69 


cBóD 


CB76 


DDCB0076 


FDCB0076 


CcB77 


CB70 


CcB71 


CcB72 


CB73 


CB74 


CcB7S9 


CB7E 


DDCB007E 


FDCB007E 


CcB7F 


N 


N 


203 


204 


0 

(HL) 
(1X+0) 
(IY+0) 
A 


B 


cB78 


CcB79 


CB7A 


CB7B 


CcB7C 


CcB7D 


cDo000 


Dca00a 


Fcoo00 


D40000 


c40000 


F40000 


Eco000o 


E40000 


ccoaaa 


3F 


FE00 


BE 


DDBE00 


FDBE00 


BF 


B8 


B9 


BA 


BB 


BC 


N N No N 


N 


P/V 


cP jus 
CcPD 

CPDR 

CPI 

CPIR 

CcPL 

DAA (HL) 
DEC (HL) 
DEC (1X+0) 
DEC. (IY+0) 
DEC A 
DEC B 
DEC” BC 
DEC C 
DEC D 
DEC” DE 
DEC E 
DEC H 
DEC HL 
DEC. IX 
DEC IY 
DEC L 
DEC SP 
DI 

DJNZ Q 
El 


BD 
EDA9 
EDB9 
EDA1 
EDB1 
2F 

27 

35 
DD3500 


FD3500 


1000 


N N 


N 


N 


P/V 


P/V 


P/V 


P/V 


P/V 


P/V 


(09) 
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EX 


EX 


EX 


EX 


EX 


EXX 


HALT 


IM 


Im 


IM 


IN 


IN 


IN 


IN 


IN 


IN 


IN 


IN 


INC 


INC 


INC 


INC 


INC 


INC 


INC 


INC 
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(SP), HL 
(SP), IX 
(SP), IY 
AF, AF? 


DE, HL 


¡OS 
(HL) 
(1X+0) 
(IY+0) 
A 

B 


BC 


ES 


DDE3 


FDE3 


DD3400 


FD3400 


3C 


04 


03 


ec 


14 


N 


P/V 


P/V 


P/V 


m 


INC 
INC 
INC 
INC 
INC 
INC 
INC 
INC 
IND 
INDR 
INI 
INIR 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JR 


JR 


DE 


sP 


EDAA 


EDBA 


EDAZ 


EDB2 


c30000 


E9 


DDEO9 


FDE9 


DAQ000 


FA0000 


D20000 


Ccz20000 


F20000 


EA0000 


E20000 


cAa0000 


1800 


3800 


m 
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JR 


JR 


JR 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 
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(BC),A 
(DE),A 
(HD ,0 
(HO) ,A 
(HOOD ,B 
(HI), C 
(HI) ,D 
(HI) ,E 
(HOOD HA 
(HO), L 
(1x+0),0 
(1X+0),A 
(1x+0),B 
(1X+0),C 
(1X+0),D 
(1X+0),E 
(1X+0),H 
(1X+0),L 
(1Y+0),0 
(IY+0),A 
(1Y+0),8B 
(IY+0),C 


(IY+0),D 


3000 


2000 


2800 


73 


DD360000 


DD7700 


DD7000 


DD7100 


DD7200 


DD7300 


DD7400 


DD7500 


FD360000 


FD7700 


FO7000 


FD7100 


FD7200 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


(IY+0),E 

(IY*0),H 

(IY+0),L 

(0000) ,A 

(2000) ,BC 
(0000) , DE 
(0000), HL 
(0000), IX 
(0000), 1Y 
(0000), IX 
A, (BC) 

A, (DE) 

A, (HL) 

A, (I1X+0) 

A, (IY+0) 


A, (0000) 


FD7308 


FD7400 


FD7500 


320000 


ED430000 


EDSz30000 


220000 


DD220000 


FD220000 


ED730000 


DA 


1A 


7E 


DD7E00 


FD7E00 


3A0000 


3E00a 


7F 


78 


79 


7A 


78 


7C 


EDS7 


70 


EDSF 


Z P/VS 


Z P/VS 
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LD B, (HL) 46 


LD B, (IX+0) DD46040 
LD B, (I1Y+0) FD4600 
LD B,0 0600 
LD B,A 47 

LD B,B 40 

LD B,C 41 

ED B,D 42 

LD B,E 43 

LD B,H 44 

LD B,L 45 

LD BC, (ARTO) ED4B0ADA 
LD ec,aqQuea 010902 
LD C), (HL) 4E 

LD C, (IX+0) DD4EQun 
LD C, (IY+0) FD4E00 
LD c,0 0E00 
LD CA 4F 

LD c,B 48 

LD EFE 49 

LD C,D 4A 

LD CE 4B 

LD CH 40 

LD Cp 4D 

LD D, (HL) 56 

LD D, (IX+0) DD5600 


210 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


D, (IY+0) 


DE), (0000) 
DE,QA00O 
E, (HL) 

E, (IX+0) 


E, (IY+0) 


H, (HL) 
H, (IX+0) 
H, (IY+0) 


4,0 


FD5600 


1600 


57 


50 


51 


SZ 


EDSB0000 


110002 


SE 


DDSE0QO 


FD5SE0Q0 


1€00 


DD6600 


FD6600 


2600 


211 


LD. 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


212 


HL, (0000) 
HL), (0000) 
HL, 0000 
IA 

IX, (0000) 
1x,0000 
IY, (0000) 
1Y,0000 
L, (HL) 

L), (IX+0) 


L, (IY+0) 


67 


60 


240000 


ED6EBADAN 


210000 


ED47 


DD2A0000 


DD210000 


FDZA0000 


FDz10000 


GE 


DD6E0A 


FD6E00 


2€E00 


6F 


68 


69 


SA 


6B 


6c 


6D 


LD 


LD 


LD 


LD 


LD 


LD 


LDD 


LDDR 


UDI 


LDIR 


NEG 


NOP 


OR 


OR 


OR 


OR 


OR 


OR 


OR 


OR 


OR 


OR 


OR 


OTDR 


OTIR 


oUT 


RA 

SP, (0000) 
sP,0000 
SP, HL 

SP, IX 


SP, IY 


(HL) 
(1X+0) 
(IY+0) 
0 

A 

B 
C 
D 


E 


(D,A 


ED4F 


ED7B0000 


310000 


FS 


DDF9 


FDF9 


EDAS 


EDB8 


EDAO 


EDBO 


ED44 


00 


B6 


DDB600 


FDB600 


F600 


B7 


80 


B1 


BZ 


B3 


B4 


BS 


ED8B 


EDB3 


ED79 


N N N 


N 


N 


P/V 


P/V 


P/V 


P/V 


109) 


n 


(09) 


N 


ul 


AF 

BC 

DE 

HL 

1X 

IY 

AF 

BC 

DE 

HL 

IX 

IY 

0, (HL) 
0, (1X+0) 
0, (1Y+0) 
0,A 


0,B 


ED41 


ED49 


EDS1 


EDS9 


ED61 


ED69 


D30a 


EDAB 


EDAZ 


F1 


ci 


pD1 


El 


DDE1 


FDE1 


FS 


CS 


DS 


ES 


DDES 


FDES 


cB8g6 


DDCB0086 


FDCB0066 


cB87 


CB80 


CzZ2 P/V 


1, (HL) 
1, (1X+0) 


1, (IY+0) 


21 (HL) 
2, (1X+0) 


2, (1Y+0) 


cR8g5 


CB8E 


DDCB0A08E 


FDCB00SE 


DDCB0056 


FDCB0096 


CcBo7 


cB90 


cB91 


CcB9Z 


CcB93 


CB94 


CcB95 


CB9E 
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RES 


RES 


RES 
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3, (I1X+0) 


3, (IY+0) 


4, (HL) 
4, (1X+0) 


4, (IY+0) 


S, (HL) 
5, (1X+0) 


5, (IY+0) 


DDCB009E 


FDCB009E 


cBaF 


cB98 


CB99 


"CB9A 


CcB9B 


CcBoac 


CB9D 


CBAG 


DDCB0OVAG 


FDCB0A0DAS 


CBA7 


CBA0 


CBA1 


CBA2 


CBA3 


CBA4 


CBAS 


CBAE 


DDCB0ADAE 


FDCBO0DAE 


CBAF 


CBAS 


CBA9 


CBAA 


RES 5E CBAB 


RES 5,H CBAC 
RES 5,L CBAD 
RES 6, (HL) cBB6 
RES 6, (1X+0) DDCB00B6 
RES 6, (IY+0) FDCB00B6G 
RES 6,A CcBB7 
RES 6,B CBB0 
RES 6,C cBB1 
RES 6,D CcBB2 
RES 0,É CcBB3 
RES 6,H CBB4 
RES 6,L CcBBS 
RES 7, (HL) CBBE 
RES 7, (1X+0) DDCB00BE 
RES 7, (IY+0) FDCB00BE 
RES 7,A CcBBF 
RES 7,B cBB8 
RES 7,C CBB9 
RES 7,D CBBA 
RES 7,E CBBB 
RES 7,H CcBBC 
RES 7,L CcBBD 
RET Cc9 
RET C D8 
RETO M F8 
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RET 
RET 
RET 
RET 
RET 
RET 
RETI 
RETN 
RL 
RL 
RL 
RL 
RL 
RL 
RL 
RL 
RL 
RL 
RLA 
RLC 
RLCE 
RLC 
RLCE 
RLE 
RLC 


RLC 
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NC 


PE 


PO 


(HL) 
(1X+0) 
(1X+0) 
A 
B 


E 


(HL) 
(IX+0) 
(1X+ 0) 
A 


B 


DO 


co 


FO 


E8 


EQ 


c8 


ED4D 


ED45 


cB16 


DDC6B0016 


FDCBO016 


cB17 


cB10 


cB11 


cB12 


cB13 


CcB14 


cB15 


17 


cBa6 


DDCBo006 


FDCB0006 


N 


N 


Mm 


(Mm 


RLD 


RRA 


(HL) 


(1X+0) 


(IX+0) 


A 


B 


C 


D 


E 


cB03 


CB04 


cBOS 


07 


EDO6F 


CcB1E 


DOCBO01E 


FoOCcBan1E 


cB1F 


cB18 


CcB19 


CcB1A 


cB1B 


cB1c 


cB1D 


1F 


CB0E 


DDCBARDE 


FDCB000E 


CcBoOF 


cos 


cB09 


CBOA 


CcB0B 


cBoc 


cBoD 


N 


N 


P/V 


P/V 


P/V 


P/V 


nm 


n 


219 


00H 


08H 


38H 


A, (HL) 


A, (IX+0) 


A, (IY+0) 


QF 


EDO67 


EZ 


SF 


D7 


DF 


EZ 


EF 


EZ 


FF 


SE 


DD9E00 


FD9E00 


DE00Q 


9F 


98 


99 


9A 


9B 


ac 


9D 


NM 


N 


n 


(0) 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


0, (HL) 
0, (1Xx+0) 


0, (I1Y+0) 


1, (HL) 
1, (1X+0) 
1, (IY+0) 
1,A 


1,8 


2, (HL) 
2, (1X+0) 


2, (I1Y+0) 


cBcóo 


DDCB00CÓ6 


FDCB0O0C6 


CcB87 


cBco 


cBc1 


CBCZ 


CcBC3 


CcBc4 


CcBcS 


CBCE 


DDCBAO0CE 


FDCBOOCE 


CBCF 


cBca 


CcBco 


CBCA 


CBCB 


CcBec 


CcBcD 


CBD6 


DDCB00DO 


FDCB00DÓ6 


CBD7 


CBDO 


CcBD1 
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SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 
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3, (HL) 
3, (IX+0) 


3, (I1Y+0) 


4, (HL) 
4, (1X+0) 


4, (1Y+0) 


5, (HL) 


5, (IX+0) 


CBD2 


CBD3 


CBD4 


CcBDS 


CBDE 


DDCB00DE 


FDCB00DE 


CBDF 


CcBD8 


CcBD9 


CBDA 


CBDB 


CcBDCc 


CBDD 


CBE6 


DDCB00E6 


FDCBO0E6 


CBE7 


CBEO 


CBE1 


CBEZ 


CBE3 


CBE4 


CBES 


CBEE 


DDCBO0EE 


SET 5, (IY+0) FDCBO0EE 


SET 5,A CBEF 
SET 5,B CBE8 
SET 356 CBE9 
SET 5D CBEA 
SET 5É CBEB 
SET 5,)H CBEC 
SET Sk CBED 
SET 6, (HL) CcBFO 
SET 6, (1X+0) DDCB00F6 
SET 6, (IY+0) FDCBA0FÓ6 
SET 6,A CBF7 
SET 6+B CcBFO 
SET 6,C CBF1 
SET 6,D CcBF2 
SET 6,EÉ CBF3 
SET 6,H CBF4 
SET “yk CBFS 
SET 7,(HL) CBFE 
SET 7,(1X+0) DDCB00FE 
SET  7,(IY+0) FDCBO0FE 
SET. TA CBFF 
SET 7,B CcBF8 
SET 7,C CBF9 
SET 7,D CBFA 
SET 7,E CBFB 
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SET 
SET 
SLA 
SLA 
SLA 
SLA 
SLA 
SLA 
SLA 
SLA 
SLA 
SLA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRL 
SRL 
SRL 


SRL 
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7,H 

Pak 
(HL) 
(1X+0) 
(1Xx+0) 

A 

B 


C 


H 

ls 
(HL) 
(1X+0) 
(1X+0) 

A 

B 


C 


H 
L 
(HL) 
(1X+0) 
(1X+0) 


A 


CcBFC 


CBFD 


CcB26 


DDCB0026 


FDCB0026 


cB27 


CB20 


cB21 


CcB22 


CB23 


CcB24 


CcB25 


CBZE 


DDCB002E 


FDCB002E 


cB2F 


cB28 


CB29 


CBZA 


CcB2B 


cB2C 


CcB2D 


CB3E 


DDCB003E 


FDCB0O03E 


CcB3F 


N No ON 


N 


N 


(09) 


Mm 


SRL 


SRL 


SRL 


SRL 


SRL 


SRL 


suB 


suB 


suB 


suB 


suB 


suB 


suB 


suB 


suB 


suB 


suB 


XOR 


XOR 


XOR 


XOR 


XOR 


XOR 


XOR 


XOR 


XOR 


0 
(HL) 
(1Xx+0) 
(1X+0) 
A 


B 


H 
E 
(HL) 
(1X+0) 
(1Y+0) 
0 


A 


CcB38 


CB39 


CB3A 


CB3B 


CB3C 


CB3D 


D6Va 


96 


DD9600 


FD9600 


97 


90 


91 


92 


93 


94 


95 


AE 


DDAE00 


FDAE00 


EEO00 


AF 


AB 


A9 


AA 


AB 


N No N 


N N N NN 


NN 


N 


N N N N N NN 


P/V 


P/V 


(m 


Mm 


225 


226 


AC 


AD 


APENDICE C 


Conversión 


Hex 0 
0 0 
1 16 
2| 32 
3| 48 
4 | 64 
5| 80 
6| % 
7 
8 
9 
A 
B 
Cc 
D 
E 
F 


Hexadecimal 


7 % 


7" 
86 


99 100 101 102 
112 113 114 115 116 117 118 
123 129 130 131 132 133 134 
144 145 146 147 148 149 158 
168 161 162 163 164 165 166 
176 177 178 179 188 181 182 
192 193 194 195 196 197 198 
208 209 218 211 212 213 214 215 216 217 218 219 220 221 222 223 
724 225 226 227 228 229 238 231 232 733 234 235 236 237 238 239 
240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 


Decimal 


55 
El 
87 


89 


El] 


93 


103 104 105 106 107 109 199 110 111 
119 128 121 122 123 124 125 126 127 
135 136 137 138 139 148 141 142 143 
151 152 153 154 155 156 157 158 159 
167 168 169 170 171 172 173 174 175 
183 184 185 186 187 188 189 198 191 
199 200 201 202 203 204 205 206 207 
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CPC 6128-664-464 


Sobre nosotros 

Son bienvenidas las solicitudes 
de catálogos, así como otro tipo 
de propuestas. 

Escriban a: 

RA-MA 

Editorial 

Crta. de Canillas, 144 
UNID) 


IS) 








Domine.el Código Máquina en su. 
ALO e OY ES 


GFFORD 2. 
UINCENT > Tama 


















EAocr 


PE 


HTTps 1/4 acpc me 


ue ment á des fins éducatives et d'études, et non commerciales. 
jitally preserved for educational and study purposes, not for commercial purposes. 
fado digitalmente con fines educativos y de estudio, no con fines comerciales. 





